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INTRODUCTION 


Argonne  National  Laboratory'  (AM.)  has  developed  an  "Air  Quality 
Assessment  Model"  (AQAM)  for  airbase  operations  under  contract  to  the  U.S. 

Air  Force  Civil  Engineering  Center  (AFCEC)  designed  to  simulate  the  emission 
of  pollutants  from  sources  on  an  airbase  and  the  dispersion  of  these  emis- 
sions in  the  atmosphere  so  as  to  enable  calculation  of  pollutant  concentra- 
tions over  a grid  of  ground  level  receptors.  These  models  are  comprised  of 
four  physically  separate  computer  codes,  of  which  three  must  be  operated  by 
the  user.  The  fourth  code  prepares  a magnetic  tape  containing  long  term 
stability -time -wind  roses  for  use  by  the  long  term  climatological  type  air 
pollution  model.  This  code  is  operated  on  request  by  the  1ISAF  Environmental 
Technical  Applications  Center  in  Washington,  D.C.  and  the  resultant  magnetic 
tapes  containing  the  climatological  information  is  shipped  to  the  user.  The 
other  three  codes,  developed  by  ANL,  consist  of  the 

• Source  Inventory  Model  (SRCINV) 

• Short  Term  Emission/Dispersion  Model 

• Long  Term  Emission/Dispersion  Model 

This  report  constitutes  the  computer  code  documentation  for  the 
first  of  these  — the  .Source  Inventory  Model.  Separate  computer  code  docunen- 
tation  manuals  are  being  prepared  for  each  of  the  other  two  model  programs. 

A companion  document  to  these  reports  - "Operator's  Guide  (Reference  1)  to 
the  Air  Quality  Assessment  Model"  for  airbase  operations  — consists  of  a 
detailed  discussion  of  the  various  functional  parts  of  the  computer  programs 
and  the  input/output  requirements.  A second  companion  report  (Reference  2) 
discusses  the  technical  and  theoretical  basis  underlying  AQAM  and  presents 
and  describes  equations  and  algorithms  used  in  the  various  AQAM  submodels. 

The  intended  purpose  of  the  present  document  is  to  provide  a computer 
programmer  with  sufficient  information  so  that  he  can  study  the  code  and  make 
changes  or  modifications  to  it  where  required. 

Table  1 contains  a list  of  all  routines  contained  in  SRCINV  in  alpha- 
betical order  together  with  a brief  description.  More  detailed  descriptions 
of  each  routine,  together  with  flow  charts  and  computer  code  listings  with 


comments  that  are  intended  to  link  listings  to  flow  charts,  are  given  on  sub- 
sequent pages.  It  is  hoped  that  this  information,  when  combined  with  that 
givei.  in  References  1 and  2,  will  enable  a programmer  to  understand  and  make 
changes  to  the  codes. 
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I igure  1.  Schematic  Flow  Diagram  of  Source  Inventory  Program 
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Table  1.  LIST  OF  ALL  PROGRAMS  AND  SUB- PROGRAMS 
IN  THE  SOURCE  INVENTORY  MODEL 


SUBROUTINE 


DESCRIPTION 


ABARIV 

ABLNIV 

ABPTIV 

ACEFCT 

ACEMIV 

ARRPEP 

BLOCK  DATA 

QURAC 

ENEMIV 


EVAPHC 

FIRST 

INPUT 

LAST 

LETTER 

MAIN 

OABARS 

OABLNS 

QABPTS 

OENEM 

RRDIST 

TREFCT 

TRNFLT 

VEFCTR 

VEHIC 


Input  airbase  non-aircraft  area  data,  compute  annual  emissions 
and  output  data  to  master  source  tape. 

Input  airbase  non-aircraft  line  data,  compute  annual  emissions 
and  output  data  to  master  source  tape. 

Input  airbase  non-aircraft  point  data,  compute  annual  emissions 
and  output  data  to  master  source  tape. 

Print  the  engine  pollutant  emission  data  and  compute  and  print 
engine  pollutant  emission  rates. 

Input  aircraft  data,  compute  annual  emissions  and  output  data 
to  master  source  tape. 

Compute  annual  emissions  due  directly  to  move.nen t of  aircraft 
on  or  over  the  airbase. 

Initialize  variables  and  arrays. 

int  single  characters  on  title  page. 

ut  environ  point,  area  and  line  data,  compute  annual  emis- 
iS  and  output  data  to  master  source  tape. 

Input  airbase  evaporative  hydrocarbon  data  and  compute  annual 
emissions . 

Subdriver  to  call  INPUT  and  ACEFCT. 

Initialize  tenporal  distribution  arrays.  Changes  may  be  input 
thru  namelist  data. 

Subdriver  to  call  all  the  non-aircraft  emission  subroutines 
and  summarize  annual  emissions. 

Print  a four  line  title  page  using  large  characters. 

Primary  program  driver.  Read,  initialize  and  print  certain 
parameters  and  arrays,  and  output  data  to  master  source  tape. 

Print  airbase  non-aircraft  area  input  and  emission  data. 

Print  airbase  non-aircraft  line  input  and  emission  data. 

Print  airbase  non-aircraft  point  input  and  emission  data. 

Print  environ  input  and  emission  data. 

Compute  takeoff  distances. 

Compute  car  and  truck  emission  factors. 

Compute  training  flight  paths  and  annual  emissions  due  to 
such  operations. 

Subdriver  to  initialize  automobile  and  truck  emission  factors. 
Input  airbase  vehicle  data  and  compute  annual  emissions. 
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SUBROUTINE  ABARIV 


Purpose: 

1.  To  input  airbase  non-aircraft  area  geometric  data  and 
activity  data  with  the  exception  of  the  evaporative 
hydrocarbons . 

2.  To  calculate  annual  emissions  from  space  heating,  off- 
road vehicles,  military'  vehicles  and  civilian  vehicles. 

3.  Tc  output  to  the  master  source  tape  all  data  needed  to 
define  air  base  non- aircraft  area  sources. 


Input : 

Airbase  non- aircraft  area  geometric  data  and  activity  data 
relating  to  space  heating,  off- road  vehicles,  military  and 
civilian  vehicles. 


Output : 


Print  all  activity  input  data  except  vehicle  data. 


Sub  routines 
Called: 


EVAPHC,  VFJIIC,  OABARS 
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SUBROUTINE  ARARIV 


L 


6 


I 
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SUBROUTINE  ABAPIV  ABARV000 

C ABABV001 

l THIS  ROUTINE  READS  THE  AIRBASE  NON-AIRCRAFT  AREA  DATA,  ABAPV002 

c ljOiNG  EVAPORATIVE  HYDROCARBON  ACTIVITY  DATA,  ABARV003 

C Ct  . 'r  FS  ANNUAL  EMISSIONS  AND  STORES  THE  RESULTS  ABARV004 

C ON  THE  MASTER  SOURCE  TAPE  ABARV005 

C ABARV006 

REAL  LUEMFC  ABARV007 

REAL*8  MINUS  ABARV008 

COMMON  /TOTS/  TOTEM (20,6)  ,TOTEVP ( 10)  ABARV009 

COMMON  /POINTR/  H , NS R CES , N M AX , Ntt AXE , LS RCES , NTOT  ABARV010 

CCMMCN  /EMFDB1/  EG  EM  FC  (6,  <4 , 50)  , PL  NAME  (6 ) , PP  EM  FC  ( 22  , o)  ,E  MFC  IN  (5,6)  , ABA  P V0 11 
. TFEMFC (6)  ,LUEMFC(9 ,b)  , AL PH A ( 7 ) , BET  A ( 7 ) , FLDENS  (7)  , FLN AM E (7 ) , ABARV012 

- AFEMFC  (2,6,6) , ATEMFC  (2,6 ,6)  ,CSENFC (6,6), AFCSEM (6,6), AFSOAK,  ABAR V01  3 

. ATSCAK, AFBRTH, ATBRTH, FLTFCT(7)  , FIXFCT(7)  , WBKFCT  (7)  AB ARVO  1 4 

CCMMCN  /DEFALT/  NPI TS  , IT A P E , MI NU S (6 ) , ABARV015 

. ACLNCY, ACLNDZ, TCVSDF,TCHBDF, TCHODF, TCDYDF, TCDZDF , R UDSDF , F UTSDF , ABAPV016 
. BUVSDF,RUHBDF,RUHODF  .R'JDYDF,  R UUZ  DF  , T F DZ  DF,  T FQDF , T FHB  DF , T F HO  DF , ABAR  VO  17 

. EGCKCY, EGCKDZ, ACML PL , AR DS DZ,  ATD SDY , A TD SDZ,  TCDSDF , TCTS DF , F PDFLT,  ABAPV018 
. TDDFLT,RFDFLT,SFDFLT  ,PFCFLT,TFDFLT,TFDYDF  ABARV019 

CCMMCN  /SPACE/  SORC E { 2 1 00)  , SO R EM ( 8,  2 5 0)  ABAPV020 


COMMON  /ARRAYS/  HC HR K ( 1 0 , 5 0)  , HC BRTH (5 , 1 0 J ) , HC EV P ( 3 , 50) 

ABARV021 

DIMENSION  FCTR  (o) , I DP  L (6)  , CNTR  (6) 

, TEM  P (6)  ,ABARS(7 ,300) 

ABA  PV  022 

EQUIVALENCE  ( A B ARS ( 1)  , SORC E ( 1 ) ) 

ABARV023 

c 

ABAR V024 

c 

SET  UP  DIMENSIONS  OF  AIRBASF  AREA 

SOURCE  ARRAYS 

ABAPV025 

c 

ABARV026 

11  = 7 

AB  A RV  027 

12=300 

ABAR V028 

M = 1 2 

ABAPV029 

c 

AFAPV030 

c 

DATA  SET  20  AIRBASE  AREA  SOURCES 

AEABV031 

c 

ABARV032 

READ  8676,  AB12J4 

ABARV033 

8676  FORMAT  (A1) 

AB  A PV  0 34 

READ  1,  NBA  X 

ABARV035 

1 FORMAT (14) 

ABAPV036 

c 

ABAR V037 

C 

N M AX  = NC.  OF  AIREASE  AREAS 

ABAPV038 

C 

ABAR V039 

IF  (NMAX. EQ.O)  GO  TO  500 

ABAPV040 

DC  20  N=1 , N M A X 

AEARV04  1 

RIAL  2,  (ABARS (I,N) ,1=1,7) 

ABAPV042 

C 

ABAPV04  3 

C 

APIA  SOUFCE  1NFUT 

ABAFV044 

C 

APA  RV045 

c 

ABARS  (1  ,N)  =ID 

ABAFV046 

c 

ABARS  (3,N) =X  (KM) 

ABAPV047 

c 

ABARS(4,N)=Y  (KM) 

ABARV048 

c 

ABARS  (5,  N)  =Z  (KM) 

ABAPV040 

c 

ABARS(6,N)=L  (M) 

ABAR V050 

c 

ABARS (7, N) =DZ  (M) 

ABAPV05  1 

c 

ABAPV052 

2 FORMAT (2F4 .0, 5F8. 2) 

ABAR  V053 

IF  (ABARS (7, N) .LE. 0.0)  AFARS(7,N) 

= AR  D SDZ 

ABAPV054 

20  CONTINUE 

AEARV055 

c 

ABAPV056 

10=  1 

ABAR V057 

CALL  CABARS(IO) 

AEAPV058 

CALI  EVAFHC (NHRK,NBPT  ,NXEVP) 

A E A R V 05  9 

c 

ABAPV060 

c 

DATA  SET  26  SPACE  HEATERS 

ABAR V061 

8 


n o 


c 

100  READ  8670,  A31234 
READ  1,  NSHS 

NSHS  = NO.  OF  SPACE  HEATING  SOURCES 
C THESE  USE  THE  SANE  BASIC  EMISSION  FACTORS  AS  THOSE  USED 

C FOR  THE  POWER  PLA  NTS  PUT  INVOIVE  SMALLER  BOILERS 

C 

IF  (NSHS.EQ.O)  SO  TO  200 

LSRCES=NSRCES+1 

N SRC ES  = N SRC ES*  NSHS 

PRINT  101,  (PLNAME  (I)  , 1= 1 , NPLTS) 

101  FORMAT  (1H1, 53X,  30HII.  C.7  AIRBASE  SPACE  HEATING/1H-, 

. 5b  X , 22HF  UE  L AND  FURNACE  INPUT, /I  HO, 

. 7X,6HSOUFCE,5X,8HEMISSION,bX , 7HPERCENT, 5 X, 7HPEFCENT.5X, 

. 10HFUEL  USAGE, 6 X , 7 HC 0 NTK 0 L , 1 3 X , 2 5H PERCENT  EMISSION  CONTROLS/IK  , 
. 9X,2HID,6X,9HF  A CTO  R I D.- 6 X , 6 HS  UL  F UR  , 8 X , 3H  ASH  , 6 X,  1 2 H A PPROP  UNITS, 

. 6X.4HFLAG ,5X,6  (4X, A4 ) ) 

C 

10  = 2 

DC  1 6 0 N = LSKCES, NSRCES 
READ  3,  SID,IDEMFC,S, A.AMNUSE, ICNTRL 
3 FORMAT  (F4 .0,14 ,3E8. 2 , 14) 

A 1=  1 . 0 
S 1 = 1 . 0 

IF(ICEMIC.EQ.9)  A1=.05b 
IF  (IDEMFC.EQ. 10)  A1  = .042 
IE  (IDEMFC. EQ. 1 1)  A 1 = . 014 
IE  (IDEMFC.EQ.  12)  A1=.001 

IE  (IDEMFC. EQ.  13)  S1  = . 00056 
IF  (IDEMFC.EQ. 14)  S1=.  00056 

IF  (IDEMFC. EQ.  15)  S1=.  00056 
IF  (IDEMFC. EQ.  16)  S1  = . 00056 
IF  (S.EQ.0.0)  S=S1 
IF  (A.EQ.0.0)  A=  A 1 

PRINT  102,  SID, IDEMFC  ,S, A , ANNUSE, ICNTRL 

102  FORMAT  ( 1 H , F 1 3 . 0 , 19  , F 1 5.  3 , F 1 2 . 3,  F 1 5 . 2 , 1 1c) 

DC  110  J=1 , NMAX 

IE  (S1D.EQ. ABARS  (1 ,J)  ) GO  TO  120 
1 10  CONTINUE 
GO  TO  q00 0 
120  SCPEM  (1, N) = S I D 
SOREM  (2,N) =J 
DC  130  J= 1 , NPLTS 
TEMP  (J) =0.0 

1 30  FCTR  (J) =1 .0 
FCTP  (4) =A 
FCTR  (5) = S 

IF  (ICNTRL. EQ. 0)  GO  TO  150 

R EAD  131,SID,NPLTCT,  (IDPL(K)  ,CNTR(K)  , K=  1, NPLTCT) 

131  FCRMAT(F4. 0,14,9  (14, F 4.3)  ) 

IF  ( SI D . N E . SOR E M { 1 , N)  ) GO  TO  9100 
DO  14C  K=1, NPLTCT 
K K = I D FL  (K) 

TEME (KK) =CNTR  (K) 

140  FCTR  (KK)  =FCTR  (KK)  * ( 1.  -CNTP  (K)  ) 

150  CONTINUE 

PRINT  312,  (TEMP(K) ,K=1, NPLTS) 

312  FORMAT  (1H«-,  85X,  6 (F4. 3,4X)  ) 

DO  160  1=1, NPLTS 

SOREM  (2  + 1 , N ) = (PPEMFC( IDEMFC, I)  *A N NUSE* FCTR ( 1)  ) 

1CTEM  (IO»M,I) =TOTE M ( I 0 + M, I) +SOREH  (1*2, N) 


ABARV062 
ABARV063 
ABAR V06U 
ABAPV065 
ABARV066 
ABAPV067 
ABAR V068 
ABAPV069 
ABARV070 
ABARV07  1 
ABAR V072 
ABARV073 
A BA  PV  07  4 
AEARV075 
ABARV076 
ABARV077 
AEAFV078 
ABAR V079 
ABAPV080 
APARV081 
A B A P V 08  2 
ABAR VOS  3 
ABARV084 
ABAEV  08 5 
ABAR V086 
AEARV087 
ABAR VC88 
ABAPV089 
ABAR V090 
ABAPV09  1 
ABARV092 
ABAR V093 
ABAPV094 
ABARV095 
ABARV096 
ABAR  V097 
ABAPV098 
ABARV099 
ABAR V100 
ABAPV101 
AEARV102 
ABARV103 
ABAR V104 
ABAPV105 
ABAPV 106 
ABAR V107 
ABARV108 
ABARV109 
ABARV1 10 
ABAPV1 1 1 
ABAPV1  12 
ABAPV  1 1 3 
ABARV114 
ABAPV1 15 
ABARV116 
ABARV1 17 
ABAPV1 18 
APARV1  19 
ABARV120 
AFAR V121 
ABARV 122 
ABARV123 


160  CONTINUE 

CALI.  CAFAFS  (10) 

C 

C DATA  SET  27  OFF  ROAD  VEHICLES 

C 

200  HEAD  867b,  AB1234 
RE AD  1,  N i RVHS 
C 

C NCRVhS  = NO.  OF  OFF  EC  AD  VEHICLE  SOURCES 
C 

IF  (NOFVHS.EQ.O)  GO  TO  300 
L S PC  F S=NS  PC  £S ♦ 1 
NSRCES=NSRCES+NORVHS 
C 

10*3 

PRIM  202 

202  FORMAT  (1H1, 5 3 X , 3 « H 1 1 . C.8  AIFBASE  OFF  FOAD  VEHICLES/1 H- 
. 62X, 12HDIESEL  INPUT/ 1H0, 

. 25X,tHSOURCE,  15X, 25 H ANNUAL  DIESEL  CO N S UN PT10N , 1 b X , 

. 2 3h DIESEL  CONSUMPTION  RATE/1H  , 

. 27X,2HID,19X,21HIN  AREA  < KI LOG ALLONS ) , 17 X, 

. 26HFFF  VEHICLE  ( fl  I LF  S/GA  L LON ) ) 

DC  23  C N=LSRCES,NSRCES 
FEAL  *01, SID, ANNGAL, XM1GAL 
231  FORMAT  (F4.0,4X,2F8. 2) 

DC  2 10  J=1,NMAX 

IF  (S1D.EQ. A6ARS  (1 ,J)  ) GO  TO  220 
. 10  CCNTI NUE 
GO  TO  9000 
220  SCPEM  (1,N) = SID 
SCREM  (2, N) =J 

IF  (X  MIGA  L. L£ . 0 . 0)  XMIGAL  = 3.0 
PRINT  203,  SIC, ANNGAL, XMIGAL 

203  FORMAT  ( 1H  , F3 1 . 0 , F30. 2 ,F4 1 . 2) 

DC  230  1=1, NPLTS 

SCREM  (2*1 ,N) =AFEHFC ( 1 , b, I)  *ANNGAL*XMIGAL*  1000. 

TOTEM  (IC*  M , I ) = TOTEM (IO*M, I) ♦SOREN (I *2, N) 

230  CONTINUE 

CALL  CAB.ARS  (10) 

C 

C DATA  SET  28  MILITARY  VEHICLE  AREAS 
C 

300  REAL  8676 , AB1234 
READ  1,  NMVHAR 

C 

C . NMVHAR  = NO.  OF  MILITARY  VEHICLE  AREA  SOURCES 
C 

IF  (NMVHAR. EQ.O)  GO  TC  400 
LSHCES=NSRCES* 1 
NS RCES=NSRCES ♦NMVHAR 
C 

I C = 4 

PRINT  301 

301  FORMAT  (1H1,  45X,46HII.  C.9  AIRBASE  MILITARY  VEHICLE  AREA  SOURCES) 
CALL  VEHIC  (ABARS, 10, SOR EM,AFEHFC,AFCSEM,11,12,AFSOAK) 

CALL  CABARS  (IC) 

C 

C DATA  SET  29  CIVILIAN  VEHICLE  AREAS 
C 

400  READ  8676  , AB  12  34 
READ  1,  NCVHAR 
C 


ABAR V124 
ABAPV125 
ABAPV  126 
ABAR V127 
ABARV128 
ABARV129 
ABARV130 
ABARV1 3 1 
ABAR V 1 32 
ABAPV133 
ABAR  VI 34 
ABAPV135 
ABAPV  1 36 
ABAR V137 
ABAPV1 38 
APARV139 
APAPV140 
ABAFV141 
ABAFV142 
A BA  PV  1 4 3 
ABAR  V 144 
AEARV145 
ABAPV146 
AEAPV147 
ABAR V148 
ABAPV149 
ABARV150 
ABARV  151 
ABAR V152 
ABAR V153 
ABAPV154 
ABAR V155 
ABAPV156 
ABA  RV  157 
ABAR V 158 
A B A RV  1 59 
ABARV160 
ABAPV  16  1 
ABAR  V 162 
ABARV163 
ABAR VI 64 
AEAPV165 
AB  AF V 1 66 
ABARV167 
AB  A RV  1 6 8 
AFARV169 
A B A R V 1 7 0 
ABAPV  17  1 
APAR V172 
ABAPV173 
ABARV174 
ABARV 175 
ABAR V176 
ABARV177 
ABARV 178 
ABAR V179 
ABAFV1R0 
ABARV181 
ABARV182 
ABAPV183 
ABARV184 
AB A PV 1 8 5 


C NCVHAR  = NO.  OF  CIVILIAN  VFHICLE  AREA  SOURCES  ABARV 1P6 

C ABARV167 

IF  (NC VHAE.Ey.O)  GO  TO  50C  ABARV 188 

LSRCES=NSRCES+1  ABARV  189 

NSPCES=NSFCFS+NCVHAP  ABARV190 

C ABARV191 

I»5  ABARV192 

PRINT  901  ABARV193 

401  FORMAT  (1H1 , 45X.47HII.  C.10  AIRBASE  CIVILIAN  VEHICLE  AREA  SOURC ES)  AB A R V 1 94 
CALL  VEHIC  (Al-ARS,  10,  SOREM , AT  EM FC , CSEMFC,  11,12,  ATSOAK)  ABARV195 

CALL  CABARSIIO)  ABARV196 

GC  TC  500  ABARV197 

C ABARV198 

9000  PRINT  9001,  SID  ABA  RV 199 


9001  FORMAT  (3H0ID ,F5.0,65H  DOES  NOT  CORRESPOND  TO  ANY  OF  THE  AIRBASE  ARABAPV200 


-EA  SOURCE  ID  NUMBERS)  ABARV201 

STOF  ABA  PV 20 2 

9100  PRINT  9101,  SOREM  (1  ,N)  ,SID  ABARV 203 

9 1 C 1 FORMAT  (2bfl0SPACE  HEATING  SOURCE  ID  =,F5.0,  ABAPV204 

. 19H,  CONTINUATION  ID  =,F5.0)  ABARV205 

ST°F  AB A PV  206 


ABAR V207 

500  N 10T=  N FLTS*  2 ABAPV208 

WRITE  (1TAPE)  NMAX,NTOT,NWRK,NBRT, NXEV F, NSHS,  NORVHS,  ABARV209 

. NHVHAR,NCVHAR,NSRCES,((ABARS(I,N) ,1=1,7), N=1,NMAX) , ABAPV210 

. ( (HCWRK  (I  ,N)  ,1=1  , 10)  ,N=1  ,NWRK)  , ABARV211 

. ( (HCERTH(I,N) ,1=1,5)  ,N=1,NBPT) , ABARV212 

. ((HCEVP(I,N),I=1,3)  ,N=1,NXEVP)  , ABARV 2 1 3 

. ( (SOREM  (I ,N)  ,1  = 1 , NTCT)  , N = 1 ,NSRCES)  AEARV214 

ABARV215 

END  ABARV216 


SUBROUTINE  ABLNIV 


Purpose : 

1.  To  input  air  base  non-aircraft  line  geometric  data 
and  activity  data. 

2.  To  calculate  annual  emissions  from  military  and  civilian 
vehicles  and  other  line  sources. 

3.  To  output  to  the  master  source  tape  all  data  needed  to 
define  air  base  non-aircraft  line  sources. 


Input : 

Airbase  non-aircraft  line  geometric  data  and  activity 
data. 


jutput : 


Print  activity  data  from  other  line  sources. 


Subroutines 

Called: 


OABLNS 


SUBROUTINE  ABLNIV 


n n n n r>  n 


. TINE  At LN1V 
C 

C THIS  i„!TINE  HEADS  THF  AIRBASE  NON-AIhCRAFT  LINE  DATA, 

C COMPUTES  .TNUAL  EMISSIONS  AND  STORES  THE  RESULTS 
C ON  THE  MASTER  SOURCE  TAPE 
C 

REAL  LUEMFC 
REAL*P  MINUS 

COMMON  /POINTR/  M , N SF CES , N M A X , N M A X E , LSFCE S, N TOT 

COMMON  /EKFDB1/  EGEMB'"  '6,4,50)  , PL  NAME  (6 ) , PP  EM  FC  (22,  b)  , KHFCIN  (5,  6) 
. TFEMfC(6)  ,LUEMFC(9,fc  > L P HA  ( 7)  , BETA  ( 7)  , FLDEN  S ( 7)  , FLN  AIIE  (7)  , 

. AFEMFC  (2,6,6)  , A T E M F<  , 6)  , CSEM  FC  (b  , t>)  , AFC  SEM  (to  , b ) , AFSO  A K , 

. ATSG A K , A FB RTH , ATBRTU  ,i  CCT (7 ) , F IX FCT  (7 ) , « RK FCT ( 7) 

COMMON  /DEFALT/  NPLTC , 1 . A r E, M I N U S (6|  , 

. ACLNDY,  ACLNDZ,  TCVSDF  H BDF , T CHODF, T CDY DF,  TCDZ DF, RU DSDF, R UTSDF , 

. RUVSPF.F.UHBDF,  RUHO DF , PUD Y DF , R UDZDF , T FDZDF,  TFQDF,  TFHbDT  ,TFHODF, 

. EGCKDY,EGCKDZ, ACMLPL , ARDSDZ, ATDS DY , ATDS DZ,  TCDS DF, TCT S DF, FPDFLT, 

. TDDFLT, RFDFLT.SFDFLT , P FD E LT, TFDFLT, TF D YDF 
COMMON  /SPACE/  SOR C E ( 2 100 ) , S OR E M (8 , 2 5 0) 

COMMON  /TOTS/  TOTEM (20,6) ,TOTEVP(10) 

DIMENSION  EM(6)  ,ABLNS  (10,100) 

EQUIVALENCE  ( A BLNS ( 1)  , SOR C E ( 1 ) ) 

C 

C SET  UP  DIMENSIONS  OF  AIRBASE  LINE  SOURCE  ARRAYS 

11  = 10 
12=100 

M = 1 6 

DATA  SET  30  AIRBASE  LINE  SOURCES 

READ  8676,  AB1234 
8676  FORMAT  (A1) 

READ  1.NMAX 

1 FORMAT  (14) 

NMAX  = NO.  OF  AIRBASE  LINES 

IF  (NMAX.EQ.O)  GO  TO  400 

DC  20  N= 1 , N M AX 

READ  2,  (ABLNS (I ,N>  ,1  = 1 , 10) 

2 FORMAT  (2F4 . 0,9F8. 2) 

C 

C LINE  SOURCE  INPUT 
C 

C ABLNS  (1,N) =ID 

C AELNS  (3, N) = XI  (KM) 

C AELNS  (4, N) =Y1  (KM) 

C ABLNS  (5,N) =Z1  (M) 

C ABLNS  (6 , N ) = W (M) 

C ABLNS  (7,N) =DZ  (M) 

C ABLNS  (8, N) =X2  (KM) 

C ABLNS  (9,N) =Y2  (KM) 

C ABLNS (10, N) =Z2  (M) 

C 

IF  (ABLNS  (6 ,N)  . LE.0.0)  AB L NS (6 , N)  = ATDS DY 
IF  (AELNS  (7, N)  .LE.0.0)  A B L NS ( 7 , N)  =A TD SDZ 
20  CONTINUE 
C 

10=  1 

CALL  OABLNS  (10) 

C 


ABLNV000 
ABLNV001 
ABLNV002 
ABLNV003 
ABLNV004 
ABLNV005 
ABLNV006 
ABLNV007 
ABLNV008 
, AELNV009 
ABLNV010 
ABLNV01  1 
ABLNV012 
ABLNV01  3 
ABLNV014 
ABLNV015 
AELNV016 
ABLNV017 
ABLNV01 8 
ABLNV019 
ABLNV020 
ABLNV021 
AELNV022 
ABLNV023 
ABLNV024 
A6LNV02S 
ABLNV026 
ABLNV027 
ABLNV028 
ABLNV029 
ABLNV030 
ABLNV031 
ABLNV032 
ABLNV033 
ABLN V034 
ABLNV03S 
ABLNV036 
ABLNV037 
ABLNV038 
ABL  N VC  39 
AB  L NV  04  0 
ABLN V04  1 
ABLNV042 
AFLNV043 
ABLNV044 
ABLNV045 
ABLNV046 
ABLNV047 
ABLNV048 
ABL  NV  04  9 
A3LNV050 
A B L NV  OS  1 
ABLNV0S2 
ABLNV0S3 
A B L NV  054 
ABLN VOSS 
ABLNVOSb 
AELNV057 
ABI.NVOSS 
APLNV0S9 
A PL  N V 06  0 
AELNV061 


u 


n n n non  n non  non  n non  no 


DATA  S FT  31  MILITARY  VEHICLE  LINES 

100  READ  8676,  A81234 
READ  1,  NMVHLN 

NMVHLN  = NO.  OF  MILITARY  VEHICLE  AIR9ASE  LINE  SOURCES 

IF  (NMVHLN. EQ. 0)  GO  TO  200 
LSRCES=NSRCES* 1 
NSRCES= NS FCES  + NMVHLN 

IC  = 2 

PRINT  101 

101  FORMAT  ( 1 H 1 , 49 X , 39HII.  D.2  AIRBASE  MILITARY  VEHICLE  LINES) 
CALL  VEhIC ( A5INS, IC, SOREM , AFEMFC, ARCS  EM, I 1, 12, DUM) 

CALL  CABLNS  ( C C ) 

DATA  SET  32  CIVILIAN  VEHICLE  LINES 

200  READ  8676,  AB1234 
PEAD  1,  NCVHLN 

NCVHLN  = NO.  OF  CIVIITAN  VEHICLE  AIRbASE  LINE  SOURCES 

IF  (NCVHLN. EQ.O)  GO  TO  <00 
LSRCES=NSRCES+ 1 
N SRC ES=NSRCES* NCVHLN 


10  = 3 

PRINT  201 

201  FORMAT  (1H1,49X,39HII.  D.2  AIRBASE  CIVILIAN  VEHICLE  LINES) 
CALI  VEHIC ( ABL NS, 10, SCR EM , ATE  MFC, CSE MFC, I 1, 12, DUM) 

CALL  CAELNS  (10) 

DATA  S FT  33  OTHER  NON-AIPCRAFT  LINE  SOURCES 

300  PEAD  8676,  Ab1234 
READ  1,  NXLN 

NXLN  = NO.  OF  OTHER  AIRBASE  NCN-AIRCRAFT  LINE  SOURCES 

IF  (NXLN. EQ.O)  GO  TO  400 

LSKCES=NSRCES*1 

NSRCES=NSRCES*NXLN 

10  = 4 

PRINT  302,  (PLNAME(J)  ,J=1,NPLTS) 

302  FORMAT  (1H1,  43X.41HII.  D.4  AIRbASE  OTHER  NON-AIRCRAFT  LINE/ 

. 1H-.53X, 33HEMISSION  INPUT  (METRIC  TONS/YEAR)/ 

. 1H0, 10X,9H SOURCE  ID,A15,5A19) 

DO  330  N=LSRCES, NSRCES 

READ  301,  SID, (EM(J) , J = 1 , NPLTS) 

301  FORMAT  (F4 .0,4X,9F8. 2) 

PRINT  303,  SID, (EM (J)  ,J=1, NPLTS) 

303  FORMAT  (1H  , 1 2X , F5. 0 , 1 P6E 1 9 . 4 ) 

DO  310  J= 1 , NM  AX 

IF  (SID.EQ. ABLNS(1,J) ) GO  TO  320 
310  CONTINUE 
GO  TO  9000 
320  SCREM  <1,N)  =SID 
S CP  EH  (2,  N)  =J 
DO  330  J= 1 , NPLTS 


ABLNV062 
ABLNV06 3 
ABLNV064 
ABLNV065 
ABLNV066 
ABLNV067 
ABLNV068 
ABLNV069 
ABLNV070 
AELNV07  1 
ABLNV072 
ABLNV073 
ABLNV074 
ABL  N V 07  5 
ABLNV076 
ABLNV077 
ABLNV078 
ABLNV079 
ABLNV080 
ABLNV081 
AELNV082 
ABLNV083 
ABLNV084 
ABLNVORS 
ABL NV 086 
ABLNV 087 
ABLNV088 

ABL  N VOS  9 

ABL NV 090 
AB  LNV  0Q  1 
ABLNV092 
ABLNV093 
AB  L NV  09  4 
ABLNV 095 
ABLNV096 
ABLNV097 
APLNV098 
ABLNV099 
ABLNV100 
ABLNV101 
ABLNV  102 
ABLNV103 
ABLNV 1 04 
ABLNV 105 
ABLNV  106 
ABLNV  107 
ABLNV 108 
AEL  N V 1 09 
ABLNV1  10 
ABLNV  1 1 1 
ABL  N V 1 1 2 
ABL  N V 1 1 3 
ABLNV1  1 4 
ABLNV1 15 
ABLNV1 16 
ABL  N V 1 1 7 
ABLNV 119 
ABL  N V 1 19 
ABLNV120 
ABLNV12 1 
ABLN V122 
A B L N V 1 2 3 
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T 0 it M <IO»M,  J)  = i'OTEN  (X  0+  H , J)  ♦ E H ( J)  ABLNV12« 

RF(1  f2*J,  N)  = FM  (J)  * 1000.  ABLNV125 

JJO  CGNil  UE  ABLNV126 

CALL  OAbLNS(IO)  ABLNV127 

GO  TC  400  ABLNV128 

c ABLNV129 

9000  PF1NT  9001,  SID  ABLNV130 

9001  FORMAT  (3H 01 D,E 5. 0,  65H  DOES  NOT  CORRESPOND  TO  ANY  OF  THE  AIRBASE  LI ABLNV 1 3 1 

.NE  SOURCE  ID  NUMBERS)  ABLNV132 

ST0F  ABLNV 1 3 3 

c ABLNV  134 

400  CONTINUE  ABLNV  1 35 

N TOT  = NPLTS*  2 ABLNV1  36 

WRITE  (ITAPE)  NNAX,NTOT,NMVHLN,NCVHLN, NXLN.NSRCES,  ABLNV137 

. ( (ABLNS  (I,N)  , 1 = 1,  10)  ,N=1,NMAX)  . ABLNV  1 38 

. ( (SO REM  (I  ,N)  ,1  = 1 , NTCT)  , N = 1 , NSRCES)  ABLNV139 


RETURN 


ABLNV140 


END 


ABLNV141 


1 


SUBROUTINE  ABPTTV 


Purpose: 

1.  To  input  airbase  non-aircraft  point  source  activity 
and  geometric  data. 

2-  To  calculate  annual  emissions  from  training  fires, 
test  calls,  runup  stands,  power  plants,  incinerators, 
storage  tanks  and  other  points. 

o.  To  output  to  the  master  source  tape  all  data  needed  to 
define  airbase  non-aircraft  point  sources. 


Input : 

Axrbase  non-aircraft  point  source  activity  and  geometric 
data. 


Output : 


Print  all  input  data  which  does  not  conform  to  the  basic 
format  point  source  data. 


Subroutines 

Called: 


OABPTS 
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READ  POINT  SOURCE  DATA  FOR  liACII  OF'  THE 
STORAGE  TANKS.  READ  AND  PRINT  TANK 
DATA.  CALCULATE  WORKING  AND  BREATHING 
LOSSES,  ACCIJMUIATH  TOTALS . 


10 


CALL 

OARPTS 


WRITE  ITAPE  WITH  ALL  POINT  SOURCE  INPUT 
ANT)  EMISSION  RESULTS,  TOGETHER  WITH  TYPE 
COUNTERS. 


c 


RETURN 


20 


r 


1 


c 

c 

c 

c 

c 


t 


c 


SUBROUTINE  ABPTIV 

THIS  ROUTINE  BEADS  THE  AIRBASE  NON-AIRChAFT  POINT  DATA, 
COBPUTES  ANNUAL  EMISSIONS  AND  STORES  THE  RESULTS 
ON  THE  WASTER  SOURCE  TATE 


REAL*8  WINUS 

COHMON  /ANNWET/  TB AR , ADD , P , P A , W3 B AR, DT B AR , AMDBAR 

COWMCN  /EM F DPI/  EG EW FC ( 6,  4 , 5 0)  , PL  NAME (6)  , PP EM FC ( 22 , 6)  , EMFCI N (5,6) 
. TFEMFC  (6)  , L’JEMFC  (9  ,6)  , ALPHA  (7)  , BET  A (7)  , FLDENS  (7)  ,FLN  AME(7)  , 

. AFEMFC (2,6,6) , ATEMFC  (2,6 ,6)  , CSEM FC  (6 , 6 ) , AFCSEM  (6,6)  , AFSOAK, 

. ATSOAK, AFBRTH, ATBRTH, FLTFCT (7)  ,FIXFCT(7)  , WRKFCT  (7) 

COMMON  /DEFALT/  NPLTS  , IT A P E , M I NU S (6 ) , 

. ACLNCY, ACLND2, TCV S DF , TCHE DF, TCHODF , TCD YD F, TCDZDF , RUDSDF , R UTSDF , 

. RUVSDF ,RUHBDf  ,RUHODF  , RUD Y DF , RU DZ DF , T FDZ DF, T FQDF , T F H B DF , T F HODF, 

. EGCKCY, EGCKDZ,  ACM L PL  , AR D S DZ,  A TD S DY  , A TD  SDZ , TCD SDF  , TOTS D F , F PD FLT, 

. TDLFLl.RFDFLT , SFDFLT  ,PFD F IT , T FDFLT , T FDY DF 
COMMON  /PCI  NT R/  M, N SRCES , N M A X , N MA XE , L SRCE S, N TOT 
COMMON  /SPACE/  SORC E ( 2 1 00 ) , SO R EM  ( 8 , 2 50 ) 

COW  HO  N /TOTS/  TOT  EM  ( 2 0 , C)  , TOT  E V P ( 1 0) 

DIMENSION  AEPTS  (1 1 , 150) 

EQUIVALENCE  » ABPTS ( 1)  , SORC E ( 1 ) ) 

DIMENSION  TIME  (4)  , I DP  1(6)  , CNT R L ( b)  , FCTR  (0 ) , T EMP  (b) , TVP  (7) 


DIMENSION  IFUNTP(S, 
DATA  IFUNTP  /«H  UTI 
4 HAL  1,4  HN  DUS 
4H  , 4 H HAN 

4HY  BO, 4 HTTOM 
4hERFE,4HED  S 
4 H , 4H 

4HSIDU,4HAL 
4 H , 4 H DO 

4HANT  , 4 H 
4 H COM , 4 HM  ERC 
4H  , 4 H I ND  U 

4 HOC  ( 4 H PROF 
4H DOM E , 4 H S BO 
4HPROP.4HAN  E) 
LATA  IFULTP  /4HBITU 
4HBITU 


22)  , IFULTP (3,22)  ,LHT1N 
.4HLITY ,4H,  IN.4HCUST, 
, 4 HTR  Y , 4 H SP.4HREAD, 
, 4 HD  FI,4HRED  ,4H 
, 4 H 0V,4HERFE,4HED  S, 
,4HT0KE,4HRS  ,4H  , 

, 4 HPOW  F , 4H  E PL, 4 H ANT  , 
, 4 H , 4 H ,411  DIS, 

, 4 HM ES T , 4H I C ,4H  , 

, 4 H ,4  [1  INL,4HUSTR, 

, 4 H IAL  ,4H  ,411  , 

, 4 H S P R , 4 H OC  ( , 4 HBUT  A, 
, 4 HAN  E)  , 4H  COM , 4HM  bO, 
, 4 HI  L (,4KBUTA,4HNE)  , 
, 4 FDOME,4HS  B0,4HIL  (, 
, 4 HM  CO , 4H A L ,4HB1TU, 
, 4 H M C 0 , 4 H A L 
, 4 HR  , 4 H 


( 3 , 2 z ) , 

4HRY 


1FULUS  (2  ,22) 
4HC0MM, 4HERCI 


4 H ANT  H 
4HANTH  ,4  HR  ,4H 
4 H FU  E , 4 HL  OI,4HL 
4 H F U S , 4 H L OI,4HL 
4 H NAT, 4 H GAS, 4H 


4HER  S , 4 H TOKE , 4 H R 
4HPULV , 4HER IZ, 4HE  DR 
4HT0KE,4HRS  ,4H  OV 
4 H HAN,4HD-FI,UHRED 
4H  , 4 H , 4 H RE 

4HTILL,4HATE  ,4H 
4H  , 4 H PONE , 4 HP  PL 

4H1AL  , 4 H ,411 
4H  DO ,4HMEST,UHIC 
4HNE)  , 4 HIN  LU , 4HS  PE 
4H1L  (,4HBUTA,4HNE) 

4 H C 0 M , 4 H M B0,4HIL  ( 
4h  PROP , 4 H AN  E) / 

411  M CO  , 4 H A L 
,4HBITU,4HM  CO,4HAL 
, 4HANTK.4HE  ,4H 

,4ilANTH,  4HR  , 4 H 

,4H  FUE, 4HL  OI,4HL 
,411  FUE.4HL  01, 4HL 
,4H  NAI.4H  G A S , 4 H 


DATA  IHTIN 


4 H 

NAT  ,4  H GAS, 411 

, 4 H 

NAT, 4 H i 

G AS  , 4 H 

4 H 

L , 4 HP  G , 4H 

,411 

L , 4H  P 

G ,4H 

4 H 

L ,4 HP  G ,411 

,4  H 

L , 4HP 

G , 4H 

4 11 

L ,4  HP  G , 4H 

,411 

L ,4HP 

G , 4 H 

4H 

OVE  ,4  HR  10,4(10 

,41110  1 , 4HO 

10,4110 

UH 

BEL, 4 HOW  1 0, 4H 

, 4HBELO, 4HW 

1 0, 4H  0 

4HUNDE,4HFINE,4HD 
4 HB  ELO , 4 HW  10,411 
4 H OV  E ,4  HR  10,4110 
4 H 1 0 T,4  HO  1 0, 4H0 
4H  OVE  ,4  HR  10,4110 
4HUNDE,  4HFINE,  411 D 
4HUNDE,4HFINE,4HD 
4HUNDE,4HFINE,4HD 
4HUNDE,4HFINE,4HD 


,411  OV  E,  4HR  10, 4H 
,4HUNDE, 4HF1NE.4HD 
,41110  T , 4 H 0 1 0 , 4 HO 
, 4Hb E LO, 4H  W 10, 4H 
,4HUNDE,4HFINE,4HD 
,4HUNDE,4HFINE,4HD 
, 4 HU  ND  E, 4HF1NE, 4HD 
,4HUNDE,4HFINE,4HD 
,4  HU  NDE, 4HFINE, 4HD 

DATA  IFULUS  / 4 HHET  , 4 HTON  S , 4H  M ET  , 4 H 1 ON S, 4H M ET  ,4HTONS, 


/ 


ABPTV000 
ABPTVOO  1 
ABPTV002 
ABPTV003 
ABPTV004 
ABPTV005 
ABPTV006 
ABPTV007 
, ABPTV008 
ABPTV009 
ABPTV010 
ABPTV01  1 
ABPTV012 
APPTV01  3 
A BP  TV  0 1 4 
ABPTV01S 
ABPTV016 
ABPTV017 
ABPTV018 
ABPTVO 1 9 
A B P TV  02  0 
ABPTV021 
ABPTV022 
ABPTV023 
ABPTVO  2 4 
ABPTV025 
APPTV026 
ABPTV027 
ABPTV028 
ABPTV029 
A B PT VO  3 0 
ABPTV031 
ABPTVO  3 2 
ABPTV033 
ABPTV034 
A BPTV035 
ABPTVO  36 
ABPTV037 
ABPTV038 
ABPTV039 
ABPTV040 
ABPTV04  1 
ABPTV042 
ABPTV04  3 
ABPTV044 
ABPTV045 
ABPTV046 
A E PT  V 04  7 
A BP TV048 
ABPTV0U9 
ABPTV050 
A B PT  V 0 5 1 
ABPTV052 
ABPTV05  3 
ABPTV054 
ABPTV055 
ABPTV056 
ABPTV057 
ABPTV058 
ABPTV059 
ABPTV060 
ABPTV06 1 


21 


non  n n n n n n n n n 


4HMET  ,4  HTON  S , 4H  MET  , 4HTONS,  4HMET  ,4HT0NS, 

. 4HMET  ,4HT0NS,4HMET  ,4 HTONS , 4HCU B , 4 HM  ET  , 

. 4HCUB  , 4 H M ET  ,4HCUB  ,4HMET  ,4HCUB  ,4HI1ET  , 

4 H M C U , 4 H NET , 4H  M CU.4H  MET,4HM  CU,4H  NET, 

. 4H«  CU, 4 H M ET, 4HCUB  , 4HMET  ,4HCUB  , 4HMET  , 

. 4HLUB  , 4 H MET  ,4HCUB  ,4  HM  ET  ,4HCUB  ,4HMET  , 

. 4HCUB  , 4 HHET  / 

REA  L*8  ABVE,  BLOli.ITKT  YP 

DATA  ABV  E, BLOW  /8HABOVE  , 8HBELOW  / 

N = 7 

NTOT  = NPLTS+  1 1 

DATA  SET  12  AIRBASE  POINT  SOURCES 

READ  8676,  AB1274 
8676  FORMAT (A1) 

READ  1,  NH  A X 

NM AX  = NO.  OF  AIREASE  POINT  SOURCES 
1 FORMAT (14) 

IF  (NMAX.EQ.O)  GO  TO  900 
PRINT  3 

3 FORMAT  (1H1, 42X, 51HI  I.  B.  AIRBASE  POINT  SOURC 
.E  S) 

DATA  SET  13  TRAINING  FIRE  POINT  SOURCES 

READ  8676,  AB1234 
READ  1,  NTFS 


NTFS  = NO.  OF  TRAINING  FIRE  SITES 


C 


C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IF  (NTFS.EQ.O)  GO  TO  100 
PRINT  4 

4 FORMAT  (1H-,  49X,  36HII.  B. 1 AIRBASE  TRAINING  FIRE  SITES) 
LSPCES=NSRCES+1 
NSRCES=NSRCES+NTFS 


10=1 

DO  40  N=LSRCES, NSKCES 
READ  2,  (ABPTS  (I,N)  , 1=  1,  10) 
2 FORMAI (2F4 . 0,9F8. 2) 

POINT  SOURCE  INPUT 


ABPTS(1,N) =ID 
ABPTS(3,N)=X  (KM) 

ABPTS(4,N)=Y  (KM) 

ABPTS  (5,N) =H0  (M) 

AEPTS  (6, N) =DY 
ABPTS  (7  ,N)  =DZ  (M) 

AEPTS  (e, N) =TS  (DEG  F);  FOR  TRAINING  FIRES  THIS  IS  u (KCAL/SEC) 
AEPTS  (9, N) =VS  (M/S) 

ABPTS  (10, N) =DS  (M) 

AEPTS  ( 1 1, N)  =HB  (M) 


IE  (ABPTS(2,N) .IE.0.) 
IE  (ABPTS  (5, N)  .LE.O.) 
IF  (AEPTS  (6  ,N)  • IE . 0 . ) 
IE  ( A EFTS  (7  , N ) .LE.O.) 


ABPTS  (2  , N)  =3. 
ABPTS (5 , N) =TE  HODF 
ABPTS  (6  , N)  =TFDY  DE 
ABPTS (7 , N ) =TFDZDF 


ABPTV062 
ABPTV063 
ABPTV06  4 
ABPTV065 
AEPTV066 
ABPTV067 
ABPTV068 
ABPTV069 
ABPTV070 
ABPTV07 1 
ABPTV07  2 
ABPTV073 
ABPTV074 
ABPTV015 
ABPTV076 
ABPTV077 
A BP  TV  07  8 
ABPTV079 
ABPTV080 
ABPTV08  1 
ABPTV082 
ABPTV083 
ABPTV084 
ABPTV085 
AEPTV086 
AB  P TV  087 
ABPTV088 
ABPTV089 
ABPTV090 
A BP  TV  09 1 
ABPTV092 
ABPTV09  3 
ABPTV094 
ABPTV045 
ABPTV096 
ABPTV097 
ABPTV098 
ABPTV099 
ABPTV100 
ABPTV101 
ABPTV102 
ABPTV103 
ABPTV104 
ABPTV105 
ABPTV 106 
ABPTV107 
ABPTV108 
ABPTV 109 
A BP  TV  1 10 
ABPTV 1 1 1 
ABPTV1 12 
ABPTV113 
ABPTV1 14 
APPTV 1 1 5 
ABPTV 116 
A BP  TV  1 1 7 
ABPTV 1 18 
ABPTV  119 
AB  P TV  1 2 0 
ABPTV  121 
ABPTV 122 
AB  P TV  1 2 3 


n n n 


IF  (AEPTS  (8,N)  .LE.O.)  ABPTS(9,N)  =TFQDF 
ANFIRE=ABPTS  (9,  N) 

G AL  FF  = ABPTS  (10, N) 

SCREM  (1, N) = ABPTS  ( 1, N) 

DO  30  1 = 1, NPLTS 

SCREM(I+2,N)=GALPF*ANEIRE*TFEMFC(I) *3.785*FLDENS(2)/1000. 

TOTEM  (IC*M,I)  =TOTEM (IO+M, I)  *S OREM  (I *2. N) 

30  CONTINUE 

90  CONTINUE 

CALL  CABPTS  (10) 

DC  91  N=LSRCES, NSRCE5 
DO  91  1=9,11 

91  AEPTS  (I, N) =0.0 
C 

C DATA  SET  19  TEST  CELL  POINT  SOURCES 
C 

100  READ  8676,  AB1239 
READ  1,  NTCS 

NTCS  = NO.  OF  TEST  CELL  SITES 

IF  (NTCS. FQ.O)  GO  TO  200 
PRINT  109 

109  FORMAT  (1H  1 , 54X,27HII.  B. 2 AIRBASE  TEST  CELLS/ 1 H-, 

. 99X, 36HENGINE  INPUTS  (TIMES  TAKEN  IN  MINUTES)) 

LSRCES=NSRCES* 1 
NSRCES=NSFCES*NTCS 

I C = 2 

F FI  NT  106 

106  FORMAT (1H0, 1 /X.6HSOURCE, 1 1 X, 6 H ENGINE, 8X.6HANNU AL, 10X, 9HIDLE,  10X, 
. 6HNCRBAL,8X,6HMIL1TAR'(,6X, 11  H AFTER  BURN  ER/1H  ,19X,2HID,15X,2HID, 
. 10X, 5H TESTS, 1 1 X.9HTI ME,1 1 X,4HTIME, 1 1 X, 4HT1ME, 1 IX, 9HTIME) 

DC  130  N=LSRCES,NSRCES 
DC  1C3  I = 1 , NPLTS 
SORE M (1  + 2, N) =0. 

105  CCNTINUF 

READ  2,  (AEPTS (I ,N)  ,1= 1,1  1 ) 

NENG  = ABFTS (2,  N) 

ABPTS  (2 , N ) = 1. 

IF  (AEPTS  (5, N)  .LE.O.)  ABPTS  (S  , N)  =TCHODF 
IF  (AEPTS  (6, N)  .LE.O.)  ABPTS  (6 , N)  =TCDYDF 
IF  (ABPTS  (7  ,N)  .LE.O. ) ABPTS (7 , N) =TCDZ DE 
IF  (AEPTS  (8 ,N) . LE. 0. ) ABPTS  (8 , N)  =TCTSDF 
IF  (ABPTS(9,N)  .LE.O.)  ABPTS  (9 , N)  =TCVSDF 
IF  (ABPTS  (10, N)  .LE. 0. ) A B PTS ( 1 0 , N) =TC DS DF 
IF  (AEPTS  (1  1 , N)  . LE. 0. ) AB PTS ( 1 1 , N ) =TCH BDF 
DC  120  K=1,NENG 

READ  101, SID, IDENG, TESTS,  (TIM  E ( 1)  ,1  = 1,9) 

101  FORMAT  (F9. 0,19, 5FB. 4) 

IF  (SID. NE. ABPTS  (1  ,N)  ) GO  TO  9000 
PRINT  107, SID, I DENG, TESTS,  (T I M E ( I)  , 1 = 1 , 9) 

107  FORMAT  ( 1H  , F2 3 . 0 , 1 1 5 , 6F1 5 . 1 ) 

DC  120  1=1, NPLTS 
A =0 . 

DC  110  J=1,4 

110  A = A + (TIME (J) *FG EM FC  (I, J, IDENG)  ) 

SOREM  (1*2, N) = SO REM  (1+2, N)  ♦A*TESTS/6  0. 

120  CONTINUE 

CO  125  1=1, NPLTS 

TOTEM  ( IO  + M, I; =TOTEM  (IO  + N,l)tSOREM(I»2,N) 

125  CONTINUE 


ABPTV 129 
ABPTV125 
ABPTV126 
ABPTV 127 
ABPTV128 
ABPTV129 
ABPTV 1 30 
ABPTV13 1 
ABPTV 132 
ABPTV133 
ABPTV 134 
AEPTV135 
ABPTV1 36 
ABPTV1 37 
AEPTV138 
ABPTV1 39 
ABPTV140 
ABPTV 19 1 
ABPTV 142 
ABPTV143 
ABPTV  144 
ABPTV145 
ABPTV 1 46 
ABPTV147 
ABPTV  148 
ABPTV 1 49 
ABPTV150 
ABPTV  151 
ABPTV152 
ABPTV 1 5 3 
ABPTV154 
ABPTV 155 
ABPTV  156 
ABPTV 1 57 
ABPTV  158 
ABPTV  159 
ABPTV16  0 
ABPTV161 
ABPTV162 
ABPTV 16  3 
ABPTV164 
ABPTV  165 
ABPTV166 
ABPTV 1 67 
ABPTV  168 
ABPTV169 
ABPTV 170 
ABPTV171 
ABPTV172 
ABPTV17  3 
ABPTV 174 
ABPTV 175 
ABPTV176 
ABPTV 1 7 7 
ABPTV 178 
AB9TV179 
A6PTV1B0 
ABPTV 18 1 
ABPTV 18  2 
ABPTV1P3 
ABPTV 1 84 
ABPTV 185 
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SORLM  ( 1 , N)  =SID 
130  CONTINUE 

CALI  CABPTS(IO) 

DATA  SET  15  RUN-UP  STAND  POINT  SOURCES 

200  REAL  8676,  AB1234 
REAL  1,  NPUS 

NRUS  = NO.  OF  FUN-UP  STAND  SITES 

IF  (NRUS. EQ.O)  SO  TO  300 
PRINT  204 

204  FORMAT  ( 1 H 1 , 5 3 X , 29H 1 1 . B.3  AIRBASE  RUNUP  SIANLS/1H-, 
. 49X, 38HENGINE  INPUTS  (TIMES  TAKEN  IN  MINUTES)) 

LSRC  E E = N SRCES*  1 
NSRCIS=NSRCES*NRUS 

IC  = 3 

WRITE  (6, 106) 

DO  23C  N=LSRCES,NSRCES 
DC  *05  1=1, NPLTS 
SCREM  (1  + 2, N) =0. 

205  CONTINUE 

READ  2,  (ABPTS  (I  ,N)  ,1=  1 ,11  ) 

NENG=  AEPTS  (2,N) 

ABPTS  (2, N) =0. 

IF  (AEFTS  (5, N)  .LE.O.)  A BP TS ( 5 , N)  =RUHODF 
IF  (ABPTS  (6, N)  .LE.O.)  ABPTS  (6  , N)  = RU  DX  DF 
IF  (AEPTS  (7, N)  .LE.O.)  ABPTS (7 , N) =RUDZ DF 
IF  (AEFTS  (8, N)  .LE.O.)  ABP TS ( 8 , N)  =R UTSDF 
IF  (ABPTS  (9, N)  .LE.O.)  ABPTS  (9 , N)  = RUVS DF 
IE  (AEFTS  (10, N)  . LE. 0. ) AB PTS ( 1 0, N)  =R UDSDF 
IF  (AEFTS  (1 1 ,N)  . LE.O. ) A B PTS ( 1 1 , N) = RU H BDF 
DC  220  K=  1, NENG 

READ  101, SIC, IDENG, TESTS,  (TIMF(I)  ,1  = 1,4) 

IF  (SID. NE. ABPTS  (1 ,N)  ) GO  TO  9000 

PRINT  107, SID, I DENG, TESTS,  (TIN  E ( 1 ) ,1  = 1, 4) 

DO  220  1=1, NPLTS 
A = 0. 

DO  2 1 C J = 1, 4 

210  A = A ♦ (TIME  (J) *EG E MFC  (1 , J , I DENG) ) 

SCREM (1  + 2, N) = SOR  EM (1  + 2, N)  +A*TESTS/63. 

220  CONTINUE 

DC  225  1=1, NPLTS 

TOTEM  (IO»n,I) = TOT EM  (I 0*M,  I)  +SOREM  (I*2,N) 

225  CCNTINUE 

SCREM  (1,N)=SID 
230  CONTINUE 

CALL  C AEPTS  (IC) 

DATA  SET  16  POWER  PLANT  POINT  SOURCES 

300  READ  8676,  AB1234 
READ  1,  NPPS 


NPPS  = NO.  OF  POWER  PLANT  SITES 

IF  (NFFS.EQ.O)  GO  TO  400 
PRINT  304 

304  FORMAT  (1H1,53X,29HII.  b.4  AIRBASE  POWER  PLANTS) 
LSRCE  E = NSRCES*  1 


AEPTV186 
ABPTV187 
ABPTV188 
ABPTV189 
ABPTV190 
ABPTV  19  1 
ABP  TV  19  2 
ABPTV193 
ABPTV  194 
A B PT  V 1 9 5 
ABPTV 1^6 
ABPTV 197 
ABPTV  198 
ABP  TV  199 
ABPTV200 
ABPTV201 
ABPTV202 
ABPTV20  3 
ABPTV204 
ABPTV205 
ABPTV206 
ABPTV207 
ABPTV208 
ABPTV239 
AEPTV210 
ABPTV21  1 
ABP  TV  2 1 2 
AB  PT V 2 1 3 
ABPTV214 
ABPTV215 
AB  PT V 2 1 6 
ABP  TV  2 1 7 
ABPTV2 1 8 
ABPTV  2 1 9 
AEPTV220 
ABPTV22 1 
ABPTV222 
ABPTV223 
AEPTV224 
ABPTV225 
AB  PT V 226 
ABPTV227 
ABPTV228 
ABPTV  229 
ABPTV230 
ABPTV23 1 
ABPTV232 
ABPTV233 
ABPTV234 
ABPTV  2 3 5 
ABPTV236 
ABPTV  237 
ABPTV238 
ABPTV239 
ABPTV240 
ABPTV 24 1 
ABPTV242 
AFPTV243 
ABPTV  244 
ABP  TV  24  5 
ABPTV246 
ABPTV247 
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NSRCFS=NSFCES*NPPS 
IC  = 4 

PRINT  301.  (PLNAHE(I)  ,1=1, NPLTS) 

I FORMAT  ( 1H-,6HSOUROE,7X,7H FURNACE,  11 X.4HFU EL, 

. 4X.10HHEAT  INPUT, 2X, 7 HP ERC ENT  , 2 X , 7 li P ERCENT , 5 X , 6H  AN  NU  A L,  4 X , 

. 7HCCNTROL,  72, 26 H FRACTION  EMISSION  C'ONTROLS/IH  , 2 X , 2 H 1 D,  1 0X  , 


ABPTV248 

ABPTV249 

ABPTV250 

ABPTV251 

ABPTV252 

ABPTV253 

ABPTV254 


. 4HTXFE, 12X .PHEURNED, 4X.9H (NIL  BT U)  ,2X,6H SULFUR, 5X.3HASH, 6 X.8HFUELABPTV255 


. USE ,5X,4HFIAG, 3X, A4 , 5 (4  X , A4)  ) 

DC  340  N=LSRCES,NSRCES 
READ  2,  (AEPTS  (X  ,N)  ,1=  1 ,11) 

IF  (ABFTS  (2, N)  .LE.O.)  ASP TS ( 2 , N) = 2. 

REAL  302, SID  MFCID.S, A , A N NUSE , MCF LG 
! FORMAT (F4 .0,14, 3F8. 2, 14) 

IF  (SID. NE. AEPTS (1 , N) ) GO  TO  9000 

A 1= 1 . 0 

S1=1.C 

IF  (MFCID.EQ.9)  A1=.056 
IF  (HFCID. EQ. 10)  A1  = . 04  2 
IF (HFCID. EQ.  1 1)  A 1 = . 01  4 
IF  (HFCID. EQ.  12) A 1 = . 00 1 
IF  (HFCID. EQ.  13)  SI  = .00 056 
IF  (HFCID. EQ.  14)  SI  = . 00  056 
IF  (MFC  IT.  FQ.  15) S1  = . 00056 
IF  (HFCID. EQ. 16)  SI  = .00 056 
IF  (S.EQ.0.0)  S = S1 
IF  (A. EQ. 0.0)  A = A 1 

PRINT  303  , SIT,  (IFUNT  F (JJ 1 .MFC ID)  ,JJ1=1,5),  ( 1 FULTP  ( J J 1 , M FC I D)  , 

. JJ  1=  1, 3) , (IHTIN (JJ 1, HFCID) ,JJ  1=  1, 3)  , S, A, AN NUSE, 

. (IF  ULUS  (JJ  1 .HFCID)  ,JJ1=1 ,2)  , MCFLG 
I FCRMAT(1H,F6.0,1X,5A4,2(1X,2A4,A2),F8.3,F9.3,F8.1,1X,2A4,1X,I4) 
DC  3 1 C K = 1 , NPLTS 
TEfi£  (K ) =0 . 0 
) FCTR  (R) =1.0 
FCTR  (4)  = A 
FCTF  (5) =S 

IF  (MCFLG. EQ.O)  GO  TO  330 

READ  311, SID, NPLTCT,  ( I DPL ( K)  , C NTR  L (K)  , K = 1 , NPLTCT) 

I FORMAT  (F4 .0,14 ,9  (14  ,F  4.  3)  ) 

IF  (SID.NE. A3PTS <1,N) ) GO  TO  9000 
DC  320  K=1, NPLTCT 
KK  = I D FL (K) 

TEMF  (KK) =CNTFL (I) 

3 FCTR  (KK) =FCTR  (KK) * (1 . -CNTRI (K)  ) 

) CCNTINUE 

l FORMAT  (1H*,90X,5(F5.3 ,3X)  ,F5.3) 

WRITE  (6,312)  (TEMF (K)  , K= 1 , NPLTS) 

SC  P EM <1,N)=Slr 
DO  340  1=1, NPLTS 

SCRFH  (I ♦ 2 , N)  = (PPENFC( HFCID,  I)  * AN NUSE* FCTR (1)  ) 

TOTEM  ( 10*  M , I ) = TOTEM (I C*M,I) *S OREM (1*2 , N) 

) CCNTINUE 

CALL  CABFTS(IO) 

DATA  SET  17  INCINERATOR  POINT  SOURCES 

) READ  6676,  A31234 
READ  1,  NICS 

NICS  = NO.  OF  INCINERATOR  SITES 
IF  (NICS. EQ.O)  GO  TO  500 


A BP  TV  256 
ABPTV257 
ABPTV258 
AB  PT V 259 
ABPTV260 
ABPTV26 1 
AP  PTV  2o  2 
ABPTV26  3 
APPTV264 
ABPTV265 
AB  PTV  26  6 
ABPTV267 
ABPTV268 
AB  PTV  26  9 
ABPTV270 
APPTV27 1 
ABPTV272 
ABPTV273 
ABPTV27  4 
ABPTV275 
ABPTV276 
ABPTV277 
AE  PTV  27  8 
ABPTV279 
ABPTV280 
ABPTV28 1 
ABPTV282 
A B PTV  28  3 
ABPTV284 
A B PTV  28  5 
ABPTV286 
ABPTV287 
ABPTV288 
ABPTV289 
A B PTV  2Q  0 
A BP  TV  29  1 

ABPTV29  2 
ABPTV20 3 
ABPTV294 
ABPTV295 
ABPTV296 
A B PTV  29  7 
ABPTV298 
ABPTV299 
A B PTV  300 
ABPTV30 1 
ABPTV302 
ABPTV 303 
ABPTV304 
ABPTV305 
A B P TV  3 06 
ABPTV  307 
ABPTV  308 
ABPTV309 


n n n n n n 


1 


F FI  NT  4 04 

404  FORMAT  (1H1,53X,29HII.  6.5  AIF3ASE  INCINERATOhS) 

LSRCES=NSRCES*  1 
N SRC E £ = N SRC  ES*  N I CS 

10  = 5 

PRINT  401,  (PLNAHE  (I)  , 1=1 , NPLTS) 

401  FORMAT  ( 1 H - , 61X,  14HEMISSION  IN P UT/  1H 0 , 42 X , 5h h A STE/1 H ,11X, 

. 6H SOURCE, 7X.8H EMI  SSI C N , 5 X , 1 5 H M AT ERIAL  BURNED, 5X , 7 HCONTROL , 1 6X , 

. 2ShFEFCENT  EMISSION  CONTROLS  / 1H  , 1 3 X , 2H1 D, 8 X , 9HF AC TOP  ID,8X, 

. 1 OH  (MET  TONS)  ,8X,4HF  IAG, 11X.6 (A4,5X)  ) 

DC  42 C N=LSBCES, NSRCES 
REAL  2,  (ABPTS  (I , N)  ,1=  1 ,1 1 ) 

IF  (AEFTS  (2.N)  .LE.O.)  ABPTS  (2 ,N) =2. 

REAL  402, SI D, HFCID, ANNUSE.HCFLG 

402  FORMAT  (F4. 0,14, F8. 2, 14) 

IF  (SIC.NE. AEPTS  (1 , N)  ) GO  TO  9000 
PRINT  4 03, SIC, MFCID, ANNUSE.HCFLG 

403  FCFMAT  (1H  , F 1 7 . 0, I 1 1 , F 20 . 2 , 1 1 3 ) 

SOREM  (1,N)  = SID 

DC  4 1 C K=1, NPLTS 

410  TEMF  (K) =0.0 

IF  (MCFLG.EC.O)  GO  TO  415 

REAL  31 1, SIC, NPLTCT,  ( I CPL ( K)  ,CNTPL(K)  , K = 1 , N PLTCT) 

IF  (SID. NE. ABPTS  (1  ,N)  ) GO  TO  9000 
DC  412  K=1, NPLTCT 
K K = I C FL  (K) 

412  TEMF  (KK)  =CN  TRL  ( KK ) 

415  CCNTINUE 

PRINT  411,  (TEMF (K) ,K=1 , NPLTS) 

411  FCFMAT  (1H  + , 72X,6 (F4. 3, 5X)  ) 

DC  420  1=1, NPLTS 

SCREM  (1*2, N)= (EMFCIN (MEC1E,1)  * ANN  USE*  ( 1 . - TE MP (1 ) ) ) 

TOTEM  (IO+M,I)=TCTEM(IC*M,I)+SOREM(I*2,N) 

420  CCNTINUE 

CALL  CABPTS (10) 

CATA  SET  18  PETROLEUM  STORAGE  TANK  POINT  SOURCES 

500  READ  8676,  AB1234 
READ  1,  N ST  S 

NSTS  = NO.  OF  STORAGE  TANK  SITES 

IF  (NSTS.EQ.O)  GO  TC  600 
PFIN1  504 

504  FORMAT  (1H  1, 53X,  30HII . B.6  AIRbASE  STORAGE  TANKS) 

HRKTCT=0. 0 
E FTOT  1=0.0 
B RTOT2  =0 . 0 
LSRCES=NSFCES* 1 
N SRC  E S = NSRC  E S*  N STS 

10  = 6 

PRINT  502 

502  FORMAT  (1H-.61X, 14HEHISSICN  INPUT/ 

. 1H0, 22X, 6HANNUAL,25X ,9HAVG  DA ILX , 4X , 4HT ANK, 5X , V HT ANK  TYFE,3X, 

. 6HNUMEER, 3X, 5HVAPOP/7H  SOURCE, 2X, 4HFUEL, 2X , 4H ROOF , 3 X , 9H FUEL  USE, 
. 3X.8HTANK  CAP,2X,9HT  ANK  T EHP , 2 X , BHT EH P V AR , 3X , 8HDI AM ETER, 

. 2X,  1 1 H (ABOVE,  BE-, 4X , 2HOF, 5X, 6HHEIGHT, 2X, 10HTHROUGHPUT, 

. 2X,5HPAINT,3X,3HDIAHETEP/1H  ,2X,2HID, 5X , 2H1D, 4 X , 2H1D, 4X, , 

. 9H  (KILCLIT) ,2X,9H(KILOLIT)  , 2 X , 7H  (DEG  F),4i,7H(DEG  F),3X, 
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L 


26 


r 


. 8H (METERS)  ,2X,  11HL0W  GROU ND)  , 3X 5HTAN K S, 2 X, 8H  (METER S)  , 3 X , 

. fcHF AC  TOP ,4  X,6H FACTOR  , 3 X , 6 HF ACTOR) 

CC  550  N=LSRCES, NSRCES 
READ  2 , (ABPTS  (I, N)  ,1=1,7) 

READ  501, SIC, I D FU  EL  , I POOF, ANN  USE, CAP, TTHP ,TNF DI F , DI Ad 
501  FORMAT (F4 . 0 ,4  X , 214 ,5F8.4) 

IF  (TMFDIF.EQ.O.)  TMP  DI  F=  DTBA  F 
IF  (ABPTS  (2  , N ) . IE.0.)  AbPTS (2 , N)  =0. 

IF  (TTMP.EQ.O.)  TTMP=TBAR 

PRINT  503, SID, ID FUEL, I ROOF , AN N USE ,CA P ,TTMP, TMPDI F , DI AM 
503  F OP  HAT  ( 1 H ,Fb. 0,15,16  ,F13.3,F10. 3 ,F9. 2, 2F1 1. 2) 

T F= (5 ./9 . ) * (TTNP-32.)  *273  . 

DC  5C5  J = 1 , 7 

TVP  (J) =EXF  (ALPHA  (J)  -BETA (J) /TP) 

505  CONTINUE 

GC  TC  (510,  530) , IROOF 

510  READ  (5,51 1)  SID, NTANKS  ,HVS ,C1 ,C2,C3, IU  NGRT 

511  FORMAT  (F4 . 0, 14, 4FB. 4,  14) 

IF  (1UNGRT.GE. 1)  TMPDIF=0. 

IF  (SIC. NE. ABPTS  (1 , N)  ) GO  TO  9000 
IF  (HVS.EQ.O.)  HVS= (2 .0*CAP) / ( (DIAM**2) *3. 141 59) 

IF  (C1.EC.0.)  C 1 =T  F DF  I T 
IF  (C2.E0.0.)  C 2=  FP  DF  LT 
IF  (C3.EQ.0.)  C3=TDDFIT 
ITKTYf=ABVE 

IF  (IUNGPT.GE. 1)  I TKT  Y F = B LCW 

PRINT  512,  ITKTYP, NTANKS, HVS, Cl, C2,C3 

512  FORMAT  (1H  + , 77X, A5 , I 9,  3F10.2,F9.2) 

HVS=HVS*3.281 

NPKLCS  = (NTANKS  * KRKFCT (IDFUEL)  *C 1*TVP (1DFUEL)  * FLDE  NS (TDFUEL)  * 
. ANNUSE) 

WFKTCT  = kiPKTCT+WRKLOS 
IF  (NTANKS. NE.O)  GO  TC  520 
B RLO  S S = 0. 

GO  TC  540 

520  BRLOSS=  (NTA NKS*FI XFCT  (IDFUEL)  *4 2 . 0*3 . 785*F LCENS ( I DFU EL) * 

( (TVP (IDFUEL)/ (14.  7-TVF  (IDFUKL) ) ) ♦*0.68) • 

. ((DIAM*3.261)**1.73)*(HVS**0.51)*(TMPDIF**.5)*C2*C3) 

BRTOT  1 = ERTOT  1 + BRIOSS 
GC  TO  540 
530  HRKLCS-0. 

READ  511, SID, NTANKS, C 1,C2,C3 
IF  (SID. NE.  ABPTS  (1  , N)  ) GO  TO  '>000 
IF  (C1.EQ.0.)  C 1=R  PDF  LT 
IF  (C2.EQ.0.)  C2  = S FDFLT 
IF  (C3.EQ.0.)  C 3 = PF DF  LT 
11KTY  F=ABV  E 

WRITE  (6,512) ITKTYP, NT  ANKS,C1,C2,C3 

B RLO  S S=  (NTANKS*  ( (TVP  (IDFUEL)  / (14.7-TVP(IDFUEL)))**0.7)* 

. ( (WSBAR* 2. 237) **0. 7) ♦ FLTFCT ( I DF UEL) * 

. ( (DIAM*3.281) **1.5) *C 1 *C2*C3*4 2. 0 *3 . 78 5* E L DEN S (IDFUEL) ) 

B RT CT  2 = BPTOT2*  B RLO SS 
540  CONTINUE 

SCREM  (1 ,N) = SI D 
SCREM  (3, N) = W RK LOS 
SOREM  ( 4 , N ) = BR 1 OSS 
SCREM  (5, N)  = IDFUEL 
SCREM  (6, N)  =1  ROOF 
DC  550  1=8,11 
ABPTS  (I , N) =0.0 
550  CONTINUE 
PRINT  551 


ABPTV372 
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ABPTV400 
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non  non 


551  FORMAT (1H-/1H0,63X, 11 HSOURCE  DATA  /1H0, 

. 14X.6HS0URCE,  10X,5HPLUNE,  17X,  11HC00RDINATES, 16X.0HSTACK  HT, 

. 10X,7HDELTA  Y , 1 0 X , 7 H DELT A Z /1H  , 

. 16X.2HID, 13X.4HFLAG,  12X, 3H (X)  , 1 4 X,  3H  ( Y ) , 2X  , 2 ( 1 OX , 8H ( MFTEF  S)  ) , 

. SX,6H (METERS) ) 

DO  560  N=LSRCES,NSRCFS 
PRINT  552,  (ABPTS(I,N)  ,1=1,7) 

552  FORMAT  (1 H , F20. 0 , F 1 4. 0 ,F 1 8 . 3 , FI  7 . 3, FI  7. 3, F18. 3, F 1 7. 3) 

5c  0 CONTINUE 

PRINT  561 

5t 1 FORMAT  (1H-/1H0, SOX,  37HSOURCE  EMISSION  DATA  (KILOGRAMS/YEAR)  /1H0, 
. 1 4 X , 6HSO  URCE ,54X,10HFIXEI  ROOF, 2 2X , 1 4 H FLO AT  I N G ROOF/1H  , 

. 16X, 2HID,22X, 12HWORK ING  LOSS , 2 (2 OX , 1 4H BRE ATH1 NG  LOSS)) 

DC  5eC  N=LSRCES, NSRCES 
IROOF=SOREM  (6,N) 

GO  TO  (570, 575) , IROOF 

570  PRINT  571, SOREM <1,N)  , (SOREM(I,N)  ,1  = 3,4) 

571  FORMAT  (1H  , F20 . 0 , F 3 0 . 3 , F 3 2 . 3) 

GO  TO  560 

575  PRINT  576, SOREM  (1 ,N)  , (SOFEM(l, N)  ,1=3, 4) 

576  FORMAT  ( 1 H , F 2 0 . 0,  F 3 0.  3 , F6 7 . 3) 

580  CONTINUE 

PFINT  82,  (MINUS (JK) , JK=1, 3) 

82  FORMAT  (1H  ,42X,AS,24X,A8  , 2 7 X , Ad) 

FRINT  581,  WRKTOT, BRTOT  1 , ERTOT2 

581  FORMAT  ( 1 H , 1 1 X , 1 2H TOT  A L A N NU A L , F2 7 . 3 , F 3 2. 3, F 3 5. 3) 

R f KTCT  = NRKTOT/  1000. 

BRTOT1=BRTOT1/1000. 

BRTGT2=ERTOT2/1000. 

DC  590  N=LSRCES, NSRCES 
J = SOREM  (5,N) 

SCFEM  (3, N) = SOREM  (3,N) /TVP (J) 

SOREM  (4,  N)  = SOREM  (4  , N)  / (TV p (J)  / ( 1 4 . 7 -T  VP  (J ) ) ) ♦ *0.  6y 
590  CONTINUE 

TOTEVE  (1) =«RKTOT 
TCTEVE  (2) =B  PTOT 1 
TCTFVF  (3) = BRTOT  2 

DATA  SIT  19  OTHER  A J F EASE  POINT  SOURCES 

600  READ  8676,  AB1234 
READ  1,  NX  S 

NX  S = NO.  OF  OTHER  POINT  SOURCES 

IF  (NXS.EC.0)  GO  TO  900 
PRINT  604 

604  FORMAT  (1H1,53X,29HII.  B.7  AIRBASE  OTHEF  POINTS) 

LSRCES=NSRCES+ 1 
NSRCES=NSRCES+NXS 

IC  = 7 

DC  620  N=LSFCES, NSRCES 
RIAD  2,  (ABP1S  (I  ,N)  ,1  = 1 ,1 1 ) 

RIAL  612, SID,  (SOREN(I+2,N), 1=1 , NPLTS) 

612  FORMAT  (F4.0.4X, 918. 2) 

IF  (SID.NE.ABPTS(1,N) ) GO  TO  9000 

SOREM  (1,N)  = SID 

DC  620  1=1, NPLTS 

SCR  EM  (I«2,N)  = SOP  EH  (I*  2,  N)  * 1000. 

TCTEM  (IO«  M.I) = T O T E M (1C  + M,I)*S0REM(I*2,N) 

620  CONTINUE 
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CALL  CAbPTS  (10) 

GC  TC  900 

9000  PRINT  9001,  AEPTS ( 1 , N ) ,Sir 

9001  FORMAT  (26H0AIRBASF  POINT  SOUPCE  ID  =,F5.0, 

. 19H,  CONTINUATION  ID  =,F5.0) 

STOF 

900  WRITE  (ITAPE)  NSRCES . NTCT , NTFS , NTCS , NRUS , NPPS , N ICS , NSTS, NX S , 
. ((A£F IS  (I, N)  , 1=1,  11) , (SOREM (1  + 2, N)  ,I  = 1,NPLTS)  ,N  = 1, NSRCES) 

LCTIIC  U ' 


ABPTV496 
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SUBROUTINE  ACEFCT 


To  calculate  the  aircraft  emission  factors  by  aircraft  type 
according  to  operational  mode. 


Engine  fuel  flow  rates  and  emission  factors,  aircraft  engine 
identification,  after-burner  data. 


Engine -dependent  and  aircraft-dependent  emission  factors  by 
thrust  setting  or  operational  mode. 
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SUBROUTINE  ACEFCT 


PRINT  ENGINE  INPUT  DATA 


CALCULATE  AIRCRAFT  ENGINE 
EMISSION  FACTORS  IN  KG/HR/ENG 


PRINT  ENGINE  EMISSION  FACTORS 


CALCULATE  AND  PRINT  AIRCRAFT  EMISSION 
FACTORS  BY  OPERATIONAL  MODES 


RETURN 


r n 


SUBROUTINE  ACEFCT 

THIS  ROUTINE  PUNTS  THE  ENGINE  POLLUTANT  EMISSION  DATA, 

COMPUTES  AND  PFINTS  THE  EMISSION  fiAI'ES  AND  STORES  THEM  FOR 
EACH  OF  THE  NINE  AIPCPAFT  MODES 

INTEGEP  ENGNO 
PEAL  LNDSPD 

R E AL*8  ACNAME,MONAMl,THNAME,  ENTEST,  EG NAME 

COMMON  /ACE  DEI/  ACEMFC  (50,  10, 6)  , ACNAME(50) , EGNAME(50)  , ENGNO (50,2)  , 
. ASCNT1  (50) .ASCNT2  (50) ,TXISPD(5Q)  ,LN0SFD(50)  , A PS  PD  1(50)  ,COHT1(50)  , 
. APSPD2  ( 50)  ,TCSPD  ( 50)  ,COSFDl  (5  0)  , COSPD2  (5  0)  , SRTUPT  (50)  , DSC  NT  1 (50)  , 
. EGCHKT  (5  0)  .SHTDNT  (50 ) , DSC  NT  2 (50)  , A PP HI , APR  HI  2 ( 50)  , CLM B 1 T, TO KI ( 50) 
COMMON  /SPACE/  SOP C E ( 2 1 00) , SO R EM ( 8 , 2 5 0) 

COMMON  /EMFDB1/  EG E MFC  (6, 4, 50)  ,PLNAME(6) 

COMMON  /DEFALT/  NPLTS 

COMMON  /EGEDbl/  MON  AM  1 ( 1 0 ) , T H N AME (4)  , MON AM2 ( 1 0 ) , I DACE G ( 50)  , 

. IACAEE  (5  0) , EGFF  (4, 50) , I EG ABF (50) 

DIMENSION  ACEMHR  (50 ,4 ,6) 

EQUIVALENCE  (SORCE(I)  , ACEH  HR  ( 1 ) ) 

DATA  ENTEST  /8HUNASSGND/ 

PRINT  ENGINE  POLLUTANT  EMISSION  DATA 

PRINT  215, (PLNAME(I) , 1=1, NPLTS) 

215  FOF MAI  (1H 1 ,44 X.45HI . A.  DEFAJLT  INFORMATION/ 

. 1H-, 48X, 38HI . A . 1 ENGINE  POLLUTANT  EMISSION  DATA/1H-, 

. 27X,bHTHPUST,1  1X.9HFUEL  FATE.IU, 

. 5 JhPCLLUT ANT  EMISSION  DATA  (POUNDS  PEP  1000  LbS  OF  FUEL)/1H  , 

. 2X,4HNAME,11X,2HID,8X,7HSETriNG,9X,  1 1 H 1 000  LBS/HR,2X,6  (8X,A4) ) 

DO  10  1=1,50 

IF  (EGNAME(I)  .EQ.ENTFST)  GO  TO  10 

PHI  NT  201  ,EGNAME  (I)  , I ,T H N A ME ( 1 ) , EGF F ( 1 , 1)  , 

. (EGEMFC(K, 1,1) ,K=1, NPLTS) 

201  FORMAT  (1H-,A8,I11,8X,A8,9X,1PF9.3,4X,6E12.2) 

DO  11  J = 2 , 3 

IF  (EGEMFC  (1 , J,I) . LE. 0. 0.  AND.  EGEMFC(2, J, I)  . LE. 0. 0)  GD  TO  10 
11  PRINT  202, THNAM  E (J)  , EGFF  (J, I)  , (EGEMFC  (K,J, I)  , K=  1,  NPLl’S) 

202  FORMAT  (1H  ,27X,A8,9X,  1 PE9 . 3, 4 X, 6E 1 2 .2 ) 

IF  (XEGABF(I)  -EQ.  1)  PRINT  202  , T H N AM  E ( 4)  , LGF  F ( 4 , I)  , ( EG  EM  FC  ( K , 4 , 1 ) , 
K=1, NPLTS) 

10  CONTINUE 

CA1CUIATE  EMISSION  RATE,  CONVERT  TO  KG/HR  AND 
PRINT  FOP  EACH  ENGINE 

DO  1 K=1, NPLTS 
DC  1 J = 1 ,4 
DO  1 1=1,50 

1 EGEMFC  (K,  J,I)  = EGEMFC(K,  J,  I)  *EGFF(J,  I)  /2. 204 c>2 
PRINT  200,  (PLN AME  (I)  ,1  = 1 , NPLTS) 

200  FCRMAT(  1H 1, 4flX, 39HI  . A. 2 ENGINE  POLLUTANT  EMISSION  KATES/1H-, 

. 27X,6HIHRUST,1 IX, 9 H FUEL  RATE.15X, 

. 44  HPOLL  UTAN  T EMISSION  PATE  (KILOGPAMS  PER  HOUR) /I H , 

. 2X,4HNAME,1 1 X , 2 HI C , 8 X , 7 HS  ET  T 1NG,9X,  1 1H1000  LbS/Hh, 2X,6'8X,A4)) 

DO  2 1=1, 50 

IF  (EGNAME(I) .EQ. ENTEST)  GO  TO  2 

PFINT  201,  EGNA ME (I)  , I ,TH NAME ( 1)  , EGFF ( 1, I) , (EGEMFC(K,  1, i)  , 

. K=  1,  NPLTS) 

DO  20  J=2 , 3 
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c 

c 

c 


c 

c 


IF  (EGEMFC  ( 1 ,0,  I)  .LE.O.O.  AND.  EGE M FC ( 2 , J, I | .LE.O.O)  GO  TO  2 
2C  P R I 11  T 202,  THNA.IE(J)  , EGFF  (J,I)  , (EGEMFC  (K,  J,  I)  ,K=1  , NPi-TS) 

IF  (ILGABF  (I)  . EQ.  1)  P FI  NT  202,  T H N AM  E ( 4)  , EGF  F ( 4,  I)  , ( EGEM  FC  ( K , 4 , I ) 
. R= 1 , NPLTS) 

2 CONTINUE 


FI  NO  EMISSION  RATE  FOR  EACH  AIRCRAFT  FOR  EACH  THRUST  SETTING 

DC  j 1=1, 50 
I i = I DACES  (I  ) 

DO  J J = 1,  4 

DC  3 K = 1 , NPLTS 

ACEH HR  (I, J, K) =EGEMFC  (K,J, II) 

IF  (I ACAEF  (I)  . EQ.O)  A C EMHR  (1 , 4 , K)  =ACE  MH  R (I  , 3 , K ) 

3 C CNTI NUE 


STORE  EMISSION  RATES  FCR  EACH  AIRCRAFT  FOR  EACH  OF  THE  NINE 
A1FCFAFT  MODES 

DC  C 1=1,50 

DO  6 K=1, NPLTS 

ACE  RE  C (1,1,  K)  AC  EMU  B ( 1 , 1 , F ) 

ACEMFC  (1,2 , K)  ACEMHR  (1, 1 , K) 

ACER  FC  (I,  3,  K)  -"ACEMHR  (1,3,  K) 

ACEMFC  (1 ,4  , K)  = ACEMH R ( 1 , 4 , R ) 

ACFRFC  (1, 5, K)  =ACEMHR ( 1,4, K) 

ACEMFC  (1, fa, K)= ACEMHR  (1,3, K) 

ACEMFC (I, 7,K) =ACEMHP ( 1,2, K) 

ACEMFC  (1,8,  is)  = ACEMHR  (1,1, K)*.  4 ♦ AC  EM  HR  ( I,  2,  A)  * . fe 
ACEMFC (I, 9, K ) = AC EM  HR  (I , 1 , K) 
fc  ACEMFC  (I  , 10  ,K)  =0.0 
R ETURK 
END 
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, AC  EF  T06  4 
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SUBROUTINE  ACEMIV 


Purpose : 

1.  To  input  aircraft  and  runway  activity  and  geometric  data. 

2.  To  establish  wind  vector  - runway  - taxiway  - parking 
area  links. 

3.  To  output  to  the  master  source  tape  all  data  needed  to 
spatially  and  temporally  define  aircraft  sources. 

4.  To  calculate  annual  aircraft  emissions  based  on  annual 
average  meteorological  conditions. 


Input: 

Aircraft  and  runway  activity  and  geometric  data. 

Output: 

1.  Print  input  data. 

2.  Print  annual  emissions  due  to  various  categories  of  air- 
craft or  aircraft- related  activities. 

3.  Write  data  on  master  source  tape. 

Subroutine 

Called: 

TRNFLT , ARRDEP 
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SUBROUTINE  ACEMIV 


I READ  NUMBER  OF  AIRCRAFT  TYPES, 
RUNWAYS  USED,  PARKING  AREAS, 
SPECIAL  CASE  WIND  CONDITIONS, 
AND  TAXI  HAY  PATH  SEGMENTS 

i 

i 

i 

READ  AIRCRAFT  IDENTIFICATION 
NUMBERS  AND  ANNUAL  AIRCRAFT 
ACTIVITY 


T 

CALL  TRNFLT  TO  CALCULATE 
EMISSIONS  FROM  TRAINING 
FLIGHTS 


▼ 

READ  AIRCRAFT  PARKING 
ARIA  DATA 


WRITE  FIRST  RECORD  OF 
MASTER  SOURCE  TAPE,  I TAPE 


* 


READ  TAXIWAY  SEGMENT  DATA 
AND  CALCULATE  LENGTH 
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A 


BEGIN  RUNWAY  LOOP 


READ  RUNWAY  GEOMETRIES,  WIND 
DIRECTION  USE,  .ARRIVAL  AND 
DEPARTURE  DATA,  AND  NUMBER 
OF  INBOUND  AND  OUTBOUND 
TAX I WAYS  ASSOCIATED  WITH 
THIS  RUNWAY 


_±_ 


FOR  ALL  INBOUND  TAXIWAYS  USED, 
READ  ID  OF  PARKING  AREA 
ASSIGNED,  'DIE  ARRIVAL  FRACTIONS 
FOR  EACH  AIRCRAFT,  AND  HIE 
SEGMENTS  USED  TO  DEFINE 
TIE  TAX I WAY  PATH 


CIECK  INBOUND  TAXIWAY  DATA 
FOR  CONSISTENCY  AND  PRINT 
ANY  ERROR  MESSAGES 


FOR  ALL  OUTBOUND  TAXIWAYS  USED, 
READ  ID  OF  PARKING  AREA 
ASSIGNED,  THE  DEPARTURE 
FRACTIONS  FOR  EACH  AIRCRAFT, 
AND  TIE  SEGMENTS  USED  TO 
DEFINE  THE  TAX I WAY  PATH 


CHECK  OUTBOUND  TAXIWAY  DATA 
FOR  CONSISTENCY  AND  PRINT 
ANY  ERROR  MESSAGES  I 


END  RUNDWAY  LOOP 
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READ  AIRCRAFT  REFUELING,  SPILLAGE 
AND  VENTING  TOTALS  ANI) 
CALCULATE  ANNUAL  EMISSIONS 
FROM  REFUELING  AND  SPILLAGE 

' "l 

CALL  ARRDEP  FOR  FAUI  WIND 
DIRECTION  AND  WRITE  ITAPF  WITH 
THE  RESULTING  ARRIVAL  AND 
DEPARTURE  FRACTIONS 

I 

WRITE  ITAPF.  KITH  IU1  MILLS  TO  HI 
IIS!  D IN  Rl  FUI  I INC  Dll  \ IRC  R\I  I 


GILL  .ARRDEP  D 'AMIHATI  Dll 
ANNUAL  I MISSIONS  FROM 
AIRCRAFT  RHNWA'i  HSF. 


i 

CM  .(in  All  1111  ANNUAL  (MISSIONS 
FROM  SERVICE.  VEHICLES  AND 
FUEL  VENTING 

— ~1 

PRINT  INFORMATION  ON  AIRCRAFT 
ACTIVITY,  PARKING  ARIAS,  TAX IWAYS, 
.AND  RUNWAYS  AND  FOR  AIRCRAFT 
SFRVKl  VEHICLES 


n n n n n n n n n n n n n non 


SUBROUTINE  ACEMIV 


THIS  ROUTINE  HEADS  AIRCRAFT  AND  RUNWAY  DATA, 
COMPUTES  AND  PRINTS  ANNUAL  EMISSIONS  AND  STORES 
DATA  ON  THE  MASTER  SOURCE  TAPE 

REAL*8  ACNAME, EGNAM E, MINUS 
REAL  LNDSPD , LU  E MFC 
INTEGEF  ENGNO 


ACEM  VOOO 
ACEMVOO 1 
ACEM  V 002 
ACEMV003 
AC  EM  V 004 
ACE  M V 005 
ACEMV006 
ACEMV007 
AC  EM  V 0 08 
ACEMV009 

COMMON  /ACEUB 1/  ACEMFC(50,  10,6)  ,ACNAME(50)  , EG  N A HE ( 5 0)  ,ENGNO(50,2)  , ACEMV010 
. ASC  NT1 (50)  ,ASCNT2 (50)  ,TX ISPD (50)  , oN DSP D (50 ) , APSP D1 (5u ) , CO HT 1 (50)  , AC  EH V 0 1 1 
. APSPD2 (50) , TOSPD (50)  ,COS  PD  1 (50)  .COST D 2 (SO)  ,SRTUPT(50)  ,DSCNT1(50)  .ACEMV012 
. EGCHKT (50)  , SHTDNT(50)  ,DSCNT2 (50)  , A PF H T , A PPH T2  (50)  , CLH BHT , TOUT (50)  ACEMV  0 1 3 
COMMON  /ACEDB2/  N ACT Y P , NR NW YS , NPK AR, I EG EL G,  I AC T Y P (8 ) , AN NAfi R ( 8)  , ACEMV014 
. ANN  LEP  (8) , ANNTGO (8) , APRFCN (2  4,6, t)  , DE PFC N ( 24 , 8 , 6)  ,T30(3,4, 8) , AC  ENVOI  5 

. DI SRNi(o)  ,RNWY(7,6)  ,IUSWE(20,6)  ,RNWYAR(8,6),RNWYDP(8,fc), ACFUEL (8) AC  EM VO  16 
. , ARFLVT  (8)  ,DPFLVT  (8  ) , ACS  PI  L (6)  , ARSV  EM  ( 6 , 8 , 5)  , LPSVEM  (b,6,5),  ACEHV017 

. NIBTT(6)  ,NIBSEG(8,6)  , IIB  SEG  ( 1 6,  8 , 6)  , 1 DI  B TN  (8 ,6  ) , TT  ARF  P (b  , 8, 6)  , ACE.1V018 

. NOETT (6)  .NOBS EG  (8  ,6)  , IOBS  EG ( 1 6 , b , 6)  , I DO BTW  (8, b ) , TT DP  Ffi  (e , 8 , 6 ) , AC E MV  0 19 

. NPAS0(6),IDPFKA(b),PAREA(6,3,3)  .IDIBPA  (8,6)  ,IDOB?A(d,6)  , ACEMV02  0 

. NLSEGS,  ACLNSG  ( 12, 25)  AC  EM  V 0 2 1 

COMMON  /EMFDB1/  EG  EM FC  (6 , 4 , 50 ) , PL H AM E ( 6)  , PP EM  F <_ ( 22,  o)  , EMFC  I N ( 5,  b)  . A C E M V 02 2 


TFEMFC(b)  ,LU EMFC  (9,6) .ALPHA (7)  , bETA (7)  , F LDENS (7)  ,FLNAME(7)  , 
. AFEMEC (2 ,6  ,6)  , ATE  MFC  ( 2, 6 , 6)  , CSEM Ft (fc , 6 ) , AFCS EM  (6 , 6 ) , AFSOA  K, 
. ATSOAK.AFBRXH, ATBRTH ,FLT  FCT (7)  , FIXFCT (7)  , W RK  FCT ( 7) 

COMMON  /DEFALT/  NP  L TS  , ITA  F E , M I N US  (6)  , ACLNDY  , Ac  ».ND2 
COMMON  /ANNME1/  T B AR , A CD, P, P A , W S B Ah , DT B Ah , AM DB AR 
COMMON  /TOTS/  TOTEM(20,o)  ,TOTEVP(10)  , E MI  SS  (8 , 1 5 , o ) ,AotM(8,t) 
DIMENSION  X X (8)  , YY (8)  ,IRNWY(2,b),JES1(8) 

A NNTM  F =1  BAR 
DO  2 1 = 1 ,8 
DO  2 J=1,NPLTS 
ACEM  (I  ,J) =0.0 
DO  2 11=1,15 
2 EMISS  (I  ,1  I , J)  =0.0 

DATA  SET  4 AIFBASE  AIRCRAFT  AND  RUNWAY  TOTALS 

READ  867C , AB1214 
867b  FORMAT (Al) 

READ  NUMBER  OF  AIRCRAFT  TYPES,  RUNWAYS  USED,  PARKING  AREAS, 
SPECIAL  KIND  CONDITIONS,  AND  T AX IW  AY  I AT  H SEGMENTS 

READ  5,  NACTYP, NRNWYS  , NPKAR, NSCASE,  NLSEGS 
5 FORM  AT ( 1814) 

N WD  = 1 7 ♦ NSCASE 

DATA  SET  5 AIRCRAFT  ACTIVITY 
READ  8676,  AB1234 

READ  AIRCRAFT  IDENTIFICATION  NUMBERS  AND 
ANNUAL  AIRCRAFT  ACTIVITY 

READ  1,  (IACTYP  (I)  , ANNARR  (I) , ANNDEP(l)  , ANNTGO  (1)  , 1=  1, NACTYP) 
1 FOPM  AT  (18,  3F8. 0) 

CALL  TRNFLT  TO  CALCULATE  EMISSIONS  IhOM  TRAINING  FLIGHTS 


ACEHV023 
ACEMV024 
ACE  MV  02 5 
ACEMV026 
ACEMV027 
ACEMV028 
A C E MV  029 
ACEMV030 
AC  EM  VO  3 1 
ACEMV032 
ACEMV033 
ACEH V034 
ACEM VO  35 
ACEMV036 
ACEMV037 
ACEMV038 
ACEHV039 
ACEMV040 
ACEMV04 1 
ACEM  V042 
AC  EM V 04  3 
ACEMV044 
AC  FMV  0 4 5 
AC  EMV046 
AC  EM  V 04  7 
ACE  MV 04 8 
AC  FMV  048 
ACEMV050 
AC  EM  V 05 1 
AC  EMV052 
ACEMV053 
ACEMV054 
ACEMV055 
ACEMV356 
AC  E M VOS  7 
ACEM VOS  8 
ACEMV054 
ACEMVObO 
AC  FMV  06  1 
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CALL  U N!  LT 
C 

C DATA  SET  6 AIRCRAFT  PARKING  AREAS 
C 

READ  8t>7b,  AB1234 

C 

C READ  AIRCRAFT  PARKING  APEA  DATA 
C 

DC  3 I = 1,NPKAR 

BFAD  4,  IDPSKA  (I)  , NPAS A,  ( (PAR EA(I, J, K)  ,K  = 1, 3)  , J=  1, 3) 

4 FORMAT  (214, 9F8.  1) 

3 NPASQ(I)  - N P AS  A 
C 

C WHITE  FIRST  RECORD  OF  MASTFP  SOURCE  TAPE,  ITAPL 
C 

WRITE  (ITAP  E)  NPLTS.NPKAR  , NRN  W YS  , N ACT  Y P , N WD  , A PPH  T , C Dfl  BHT  , I EG  FLG  , 
• NLSFGS 
C 

C DATA  SET  7 AIRCRAFT  TAXINAY  PATH  SEGMENTS 
C 

FIAT  867b,  AB12J4 
C 

C READ  TAXIWAY  SEGMENT  DATA  AND  CALCULATE  LENGTH  OF  TAXIWAY  LINE 
C 

DO  b N = 1 , NLSEGS 

READ  7,  NC,  (ACLNSG  (K, N)  ,K  = 1,8) 

7 FORMAT  (I  4 ,4X,6E8.3) 

IE  (NC.EQ.N)  GO  TO  g 
PRI  NT  801  , NC 

601  FORMAT (44H0TAXI WAY  5FGMENT  DATA  OUT  uF  SEQUENCE  AT  NC=,I4) 

GO  TC  100 

4 IE  (ACLNSG  (3  , N ).  LE.O  . 0 ) AC  LN36  (3,  N>  = ACLND'L/2. 

IE  (ACLNSG (4, N)  .LF. 0. 0)  ACLNSG  (U , N)  =AC LNDY 

IF  (ACLNSG  (5, N) . IF.O. 0)  ACL  NS G (5 , N)  = ALL N DZ 
IE  (ACLNSG(8,N)  .LE.O. 0)  ACLNSG  (d,N)  ~A0LNDZ/2. 

ACLNSG  (9,  N)  =1 . 

ACLNSG ( 1 0, N ) =1. 

AC  LNSG  (1 1 , N) =SQRT ( (AC  I NSG  (6, N)  -ACLNSG ( 1, N) ) »*  2* 

. (ACLNSG(7, N)  - ACLN  SG ( 2,N)  ) **2) 

ACI.NSG  ( 12  , N)  = 1 . 

6 CONTINUE 
C 

C DATA  SET  8 A IEC..A  TT  RUNWAY  INFOF.HATION 
C 

REAL  8h7  A , AB12J4 
C 

C BEGIN  RUNWAY  LOOP 

C 

101  DC  10  NN=1,NRNWYS 
C 

C READ  RUNWAY  GEOMETPIES,  WIND  DIRECTION  USE,  ARRIVAL  AND 
C DEPARTURE  DATA,  AND  NUMEER  OF  INBOUND  AND  OUTBOUND  TAXIWAYS 
C ASSOCIATED  WITH  THIS  PUNWAY 

C 

RIAD  1 1 ,IFNWY  (1  ,NN) , (RNWY  ( I , N N ) ,1-2,7)  , DISRNW (NN) 

11  FORM  AT  (14, 4X, 8F8.3) 

RN»Y  (7  ,NN) 3 R N W Y (7 ,NN) *0.0  174533 

IF  (RNWY  (4, NN)  .LE.O. 0)  RNWY(4,NN)  -ACLNDZ/2. 

IF  (R.  NWY(5,NN)  .LE.O.)  R N W Y ( 5,  N N)  = AC  LN  DY 
IF  (RNWY  (6,  NN)  . LE.  0.  ) RNW  Y (6 , N N)  = AC  L N D2 
C 

READ  12, ID,  (IUSWD  (I,  NN)  ,1=  1 , NWD) 


ACEMV062 
ACEMV063 
AC  EH  V 06  4 
AC  E M V 065 
ACEHV066 
ACEMV067 
AC  EM  V 06  8 
ACEMV069 
ACEHV070 
ACEMV071 
ACEMV072 
ACEMV07  3 
ACEMV074 
ACEMV075 
ACEMV076 
ACEMV077 
AC  EM  V 07  8 
ACEMV079 
ACEMV080 
AC  EM  V 08 1 
AC  EM  V 08  2 
ACENV08  3 
AC  E M V 08  4 
AC  EM  V 08  5 
AC  E M V 086 
ACEMV087 
AC  E M V 088 
AC  E M V 08  9 
ACE  MV  09  0 
ACFMV091 
AC  ENV  09 2 
ACE  MV  093 
ACF.MV09  4 
AC  E M V 095 
AC  EM  V 09 6 
ACE  MV  097 
ACFMV098 
ACEMV099 
ACEMV100 
AC  E MV  10  1 
ACEMV102 
ACEMV  103 
ACEMV1 04 
ACEMV  105 
ACEMV106 
ACFMV1 07 
ACEMV 108 
ACEMV1 09 
ACEMV 1 10 
ACEMV1 1 1 
ACEMV 1 12 
ACEMV  1 1 3 
ACEMV1 1 4 
ACEMV  1 15 
ACEMV1  16 
ACEMV  1 17 
ACE  MV  1 1 8 
ACEMV1 19 
ACEMV  120 
AC E MV  1 2 1 
ACFHV  122 
ACF.HV123 


12  FORMAT  (14 ,4 X,20I1) 

NWDP1=NWD*1 

IF  (NWDP1 .GT. 20)  GO  TC  125 
no  I =N  W DP  1 , 20 

124  IUSWD(I,NN)  =0 

125  CONTINUE 

IF  (1L.E0.IPNWY(1,NN))  GO  TO  14 
PRINT  13, ID, IRNWY  (1  ,NN) 

13  FORMAT  (38H0ERPUR RUNWAY  ID'S  APE  1 NCOMPA  TI 8LE  , 21  1 4) 

GO  TO  100 

C 

14  READ  15,  ID, (FNWYAF (I ,NN) ,1=1,8) 

15  FORMAT  (14 ,4  X,6Fb .0) 

IF  ( ID. EQ. IRN NY ( 1, NN)  ) GO  TO  1b 
PRIM  13, ID, IRNWY  (1,NN) 

PRINT  150 

150  FORMAT ( 1H* ,T70, /HI NBGUND) 

GC  TC  100 

C 

1b  PEAL'  15,  ID,  (RNWYDP  (I  ,NN)  , 1=1 , 8) 

IF  (IC.E£.IRNhY(1,NN))  GO  TO  17 
PRINT  13,  I D,1RNWY  ( 1,  NN) 

PRINT  151 

151  FORMAT ( 1 H + , T70, 8HOUTPOUND) 

GC  TO  100 

C 

17  REAL  5,  ID,  NIFTT(NN)  , NCBTT(NN) 

IF  (II. EQ. IRNWY  (1  ,NN)  ) GO  TO  19 
PFINT  13,  ID,  IF  N W Y ( 1 , N N) 

GO  TO  100 
19  NT  = N I BTT  (NN ) 

IF  (N7.EO.0)  GO  TC  2000 
C 

C FOR  ALL  INBOUND  TAXIWAYS  USED,  REAL  ID  OF  PARKING  AREA 

C ASSIGNED,  THE  ARRIVAL  FRACTIONS  FOR  EACH  AIRCRAFT,  AND  THE 

C SEGMENTS  USED  TO  DEFINE  THE  TAXIWAY  PATH 
C 

DO  2 0 J = 1 , N T 

READ  21,1  DR  W, IDIBTW (J  ,NN)  ,IDIBPA  ( J , N N ) , (TTARF  R (J  ,1 , NN)  ,1  = 1,8) 

21  FORMAT  (312, 2X,6F8. 3) 

C 

C CHECK  INBOUND  TAXIWAY  DATA  FOR  CONSISTENCY  AND 
C PRINT  ANY  ERROF  MESSAGES 
C 

IF  (1  DRW. EQ. IRNWY (1 ,NN) ) GO  TO  23 
PFINT  22,  IDRW, IDIBTW  (J.NN)  , IRNWY  (1 ,NN) 

22  FORMAT  (12H0FUNW  AY  ID  =,I5,17HWITH  TAXI  TRAJ.  =I4,5HN0T  =14) 

PRINT  150 

GC  TC  100 
C 

23  READ  24, IDRW, 1 DTW, I DP  A ,NSEGS,  (IIBSEG (K, J, NN)  ,K=1  , 1b) 

24  FORMAT  (412 , 1bI4) 

N IBS  EG  (J, NN)  =N  S EGS 
DO  30  K= 1 , NSEGS 

IF  (IIBSEG  (K,J, NN)  .LE  . NLSEGS)  GO  To  30 
PRINT  301,  I I BS EG ( K, J , NN) ,IDTW,IDR« 

301  FORMAI  (IbHOTAXI WAY  SE GMENT , 14 , 1 1 H IN  T AX  I W A Y , I 4,  1 0 H U F RUNWAY, 14, 
. 1 3 H IS  UNDEFINED) 

PFINT  150 
GO  TO  100 
30  CONTINUE 
C 


AC  E M VI 2 4 
ACFMV  125 
ACEMV126 
ACEMV127 
AD  E MV  128 
AD  EM  V 1 29 
ACEMV  130 
ADEMV13  1 
AC  EM  V 1 32 
ACEMV  133 
ADSMV134 
ACEMV  135 
ADEMV136 
AC  EM  V 1 3 7 
ADEMV1  18 
ACFMV1 39 
ACEMV 140 
A D E M V 1 4 1 
ACEMV 142 
ADEMV143 
ACEMV 1 44 
ACEMV 145 
ACEMV146 
ACFMV  147 
ACEMV148 
ACFMV  14<J 
ACEMV  150 
ACEMV151 
ACEMV  152 
ACEMV153 
AC  EM  V 1 5 4 
ACEMV  155 
ACEMV15b 
ACEMV  157 
ACEMV158 
ACEMV 159 
ACEMV 160 
ADEMV161 
ACEMV  162 
ACEMV163 
ACEMV  1 b 4 
ACEMV  165 
ACEMV166 
ACEMV  167 
ACEMV168 
ACEMV  169 
ACEMV170 
AC  EM  V 1 7 1 
ACEMV  172 
ACEMV1 73 
ACEMV  174 
ACEMV1 75 
ACEMV 176 
ACENV177 
ACFMV178 
ACEMV 179 
AC  EMV180 
ACEMV 181 
ACEMV  182 
ACEMV183 
ACEMV  184 
A D E M V 1 8 5 
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n n 


IF  (1ETU . EQ . ID13TW  (J, NN) ) GO  To  2b 
PRINT  25,  I DT IDI BTW  (J,NN) 

25  FORMAT  (49H0IP  NUMBERS  FOR  TAXIWAY  TRAJECTORIES  NOT  MATCHED  ,214) 
PRINT  150 

GO  TO  100 
C 

26  IF  (IDFA.EQ.IDI  EPA(J,  NN)  ) GO  TO  20 
PRINT  27,  I DTN , IDPA.I LIBPA  (J, NN) 

27  FORM  AT  (48H0ID  NUMBER  FOR  PARKING  AREA  NOT  MATCHED,  TAXIWAY, 14, 

. 1SH  PARKING  AREAS, 214) 

PRINT  150 
GC  TC  100 
20  CONTINUE 
C 

2000  CONTINUE 

NT  = NC  ETT  (NN ) 

IF  (NT.EQ.O)  GO  TO  10 
C 

C FOR  ALL  OUTBOUND  TAXIWAYS  USED,  READ  ID  OF  PARKING  AREA  ASSIGNED, 

C THE  DEPARTURE  FRACTIONS  FOP  EACH  AIRCRAFT,  AND  THE  SEGMENTS 

C USED  TO  DEFINE  THE  TAXIWAY  PATH 
C 

DO  4 0 J = 1 , N T 

READ  21 ,1  DR W,I DOBT W (J  ,NN)  , I DO  BP A ( J , N N ) , ( TTDPF n (J , I , N N ) ,1=1,8) 

C 

C CHECK  OUTBOUND  TAXIWAY  DATA  FOR  CONSISTENCY  AND 
PRINT  ANY  ERROF  MESSAGES 

IF  (1DRW.EQ.IRNWY  (1 ,NN) ) GO  TO  42 
PRINT  22,  1 DRW  , IDOPTK  (J  , N N)  ,1  RNWY  ( 1 , NN) 

PRINT  151 
GC  TC  100 
C 

42  REAL  24 , IDRW , I DTW, I DP  A , NS EGS , (IOBSEG ( K, J,  NN ) , K=  1,  1 b) 

NOBSEG  (J,  NN  ) =NSEGS 

DO  43  K=1,NSEGS 

IF  (ICPSEG  ( K, J, NN)  . IE.  NLS EGS)  GO  TO  43 
PRINT  301,  10 BS EG ( K, J , NN) ,IDTW,IDRW 

PRINT  151 
GC  TO  100 
C 

43  CONTINUE 

IF  (IDTW.EQ.IDOBTW (J, NN) ) GO  TO  39 
PRINT  25,  I DTW,  IDOBTW  (J,NN) 

PRINT  151 
GC  TO  100 
C 

3y  IF  (I  CP  A. EQ. IDOBPA  (J, NN) ) GO  TO  40 
PRINT  27,  IDTW,  IDPA, IDOBPA  (J,NN) 

PRINT  151 
GO  TO  100 
40  CONTINUE 
10  CONTINUE 
C 

C END  FUNWAY  LOOP 

C 

C DATA  SET  9 AF^OSPACE  GROUND  EQUIPMENT  EMISSIONS 
C 

READ  8676,  AB1234 
C 

C READ  EMISSIONS  DATA  RESULTING  FROM  VEHICLES  SERVICING 
C ALL  INCOMING  AND  OUTGOING  AIRCRAFT 


ACEMV186 
ACEMV  187 
ACEMV1 88 
ACEMV 189 
ACEMV190 
ACEMV191 
ACEMV  192 
ACEMV193 
ACEMV 194 
ACEMV1 95 
ACEMV  196 
AC  EM  V 1 97 
ACEMV1 98 
ACEMV  199 
ACEMV200 
AC  EM  V 20  1 
ACEMV202 
ACEMV203 
ACEMV204 
ACEMV205 
ACEMV  206 
ACEMV207 
ACEMV  208 
ACEMV209 
ACEMV210 
ACEMV  21  1 
ACEMV212 
ACEMV213 
ACEMV214 
ACEMV21 5 
ACEMV  216 
ACEMV217 
ACEMV  2 1 8 
ACEMV219 
AC  EM  V 2 2 0 
AC  EM  V 22  1 
ACEMV222 
ACEMV223 
ACEMV224 
AC  EM  V 2 2 5 
ACENV226 
ACEMV  227 
ACEMV228 
AC  EH  V 2 2 9 
ACEMV  230 
ACEMV231 
AC  EM  V 2 3 2 
ACEMV233 
ACEMV  234 
ACEMV235 
ACEMV  2 36 
ACEMV237 
ACEMV  238 
ACEMV239 
ACEMV2U0 
ACEMV24 1 
ACEH V242 
AC  EM  V 24  3 
ACEMV244 
ACEMV  245 
ACEMV246 
ACEMV  247 
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non  n n n 


DO  <44  J=1  ,5 
DO  44  I = 1 , N ACT Y P 

44  READ  41,  (ARSVEH  (K  ,1  ,J)  ,K=  1,  NPLI'S ) 

DC  4 5 J = 1,  5 
DC  4 5 1 = 1 , N ACTY  P 

45  READ  41,  (DPSVEd  (K  , I , J)  ,K  = 1,  NPDTS) 

41  FOR  HA  I ( SF3.3) 

DATA  SET  10  AIRCRAFT  REFUELING,  SPILLAGE  AND  VENTING  TOTALS 
READ  8676,  A81234 

READ  AIF CRAFT  REFUELING,  SPILLAGE  AND  VENTING  TOTALS 
AN!  CALCULATE  ANNUAL  EI1ISSIONS  FROd  REFUELING  AND  SPILLACE 

READ  B4  4,  (JES1  (I)  ,1=  1.NACTYP) 
b 4Q  FOFdAT (bX, 318) 

READ  11,  INFJTS,  (ACFUEL(I)  ,1=1,8) 

IF  (INPUTS. GT.  1)  GO  TC  51 
DO  5 C I = 2 , N ACT  V P 

50  ACFUEI  (1)  =ACFUE_(1) 

51  CONTINUE 
DO  5 2 I = 1 , N ACT  VP 

T VP  = E X I (ALPHA(JES1  (I)  ) -BET  A(JES 1 (I) ) / ( 5 . * (ANNTdP“32.) /9.+273.( ) 

52  EH  IS S (I,  14,L)=ENISS(I,  14,  2)*0.324«TVP*AcFUEL(I)  *ANNARR ( ] ) *0.5» 

. E LDENS(JES  1 (1 ) ) /1000 .0 

READ  11,  INPUTS, (ACSPIL(I) ,1=1,8) 

IF  (1  NFUTS.  GT.  1 ) GO  TC  91 
DC  90  I = 2 , N ACT  VP 

90  ACSPI  L (I)  = ACSPI  L(  1) 

91  DO  92  I = 1 , N ACT  VP 

EHI5S  (I,  14,  2)  =Ef1  ISS  (I  , 14, 2)  + ANNARR  (I)  *ACSP1L  (I)  *FLDENS  (JES1  (1)  ) 

92  ACEH  (I  ,2)  = ACEd  (I  ,2)  ♦ Eli  ISS  (I,  14,2) 

READ  11,  INPUTS,  (AKFIVT(I)  ,1=1,8) 

IE  (INPUTS. GT. 1)  GO  TO  54 
DC  5 3 I =2, N ACT  VP 

53  AFFLVT  (1)  = AE.FLVT  (1) 

54  FEAD  11,  INPUTS,  (DPFLVT(I)  ,I=1,o) 

IE  (INPUTS. GT.  1)  GO  to  56 
DO  55  1=2, N ACT  V P 

55  DPFLVT (I) =DPFLVT  (1) 

56  CONTINUE 

C CALL  AFF.LEP  FOR  EACH  WIND  DIRECTION  AND  WRITE  IIAPr  «xTH 

C THE  RESULTING  ARRIVAL  AND  DEPARTURE  FRACTIONS 

C 

DO  60  I WD=  1 , NWD 
CALL  ARFDEP (1WD) 

DO  66  J = 1 , N ACTV P 

WRI  TE  (I  TAPE)  ( (AIRFCN  (I,  J,  K)  , DEPFCN  (I,  J,K)  , 1=  1,  24)  , K = 1 , 0) 

68  CONTINUE 
60  CCNTI NUE 
C 

C WRITE  ITAPE  WITH  THE  FUELS  TO  PE  USED  IN  REFUELING  THE  AIRCRAFT 
C 

WRITE  (ITAPE)  (JES1  (J)  ,J=1,NACTVP) 


ACENV248 
ACEHV249 
AC  Ed  V 2 50 
AC  E d V2  51 
ACEdV  252 
ACEd V253 
AC  EdV  254 
ACEdV255 
ACEdV  256 
ACEdV257 
ACEdV  258 
ACEdV259 
ACEdV  260 
AC  E d V26  1 
AC  E d V2  62 
ACEdV  26  3 
ACEd V264 
ACEdV  26  5 
ACE  d V266 
AC  EdV  2b  7 
AC  E d V26  8 
AC  Ed V26  9 
AC  F dV  27  0 
ACEd V27 1 
AC  Ed  V 27  2 
ACE  dV273 
ACEdV274 
ACEdV  21 5 
ACEdV276 
ACEdV277 
ACEdV278 
AC  Ed V2T  9 
AC  E dV  230 
AC  Ed  V28 1 
AC  Ed V28  2 
AC  E d V2  83 
AC  Ed V 28  4 
ACEM V285 
AC  Ed V 28  6 
ACEdV  287 
ACEd V280 
AC  EdV  289 
ACEdV290 
ACEdV 29  1 
AC  Ed  V29  2 
ACEdV293 
ACEdV  294 
AC  E d V29  5 
AC  Ed V 29 6 
AC  E dV2  97 
AC  EdV  29  3 
AC  Ed V 299 
ACEdV300 
ACEdV  30  1 
AC  Ed  V302 
AC  Ed  V 30  3 
ACE  dV304 
ACEdV  30  5 
AC  E d V 3 06 
AC  Fd  V 30  7 
ACEdV308 
ACEdV  309 
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n o 


CALL 
F FCM 


AP.RLLP  TO  CALCULATE  THE 
AI&CRAFT  r UNHAY  USE 


ANNUAL  EMISSIONS 


I KD  = 2 1 
CAlL  AFFi 


F.P  (lk  P) 


58 


C 

C 

c 

C 


CALCULATE  THE  ANNUAL  EMISSIONS  FROM  SERVICE  VEHICLES 
ANC  FUEL  VENTING 

Dc  58  I - 1 , N ACTY P 

EMISS (I ,13,2) =EMISS (I , 1 3,2)  ♦ 

. (AFFLVT  (I)*ANNARR  (I)  ♦CPFIVT  (I)  *ANNDEP(I)  ) *FLDENS(JES1  (I)  ) 
ACFM  (1,2)  =ACEM (1,2)  ♦EMISS (I, 1 3,2) 

DO  58  K= 1 , NPLTS 

EMISS  (I,  12,  K)  = E M I S S (I,12,K)M(ARSVEM(K,1,1)+ARSVEM(K,I,2)  + 

. ARSVEM(K,I,3)  ♦ AR3VEM(K,I,4)  + ARSV  EM  (K  , I,  5)  ) * ANN  ARn  ( I)  ) + 

. ( (DPSVEM  (K  , I, 1 ) ♦DPSVEH  (K , 1,2) ♦DPSVFM (K , I , 3) ♦ DPS VEM (K ,1,4)  ♦ 

. DFSVEM  (K  ,1  ,5)  ) ‘ANNCEP  (I)  ) 

ACEM  (I  ,K) = AC  EM (I , K ) ♦ t MISS  (I, 12, K) 

CONTINUE 

PFINT  I N FOP  M AT 10  N ON  AIRCRAFT  ACTIVITY,  PARKING  AREAS, 
IAX1UAYS,  AND  FUNHAYS  AND  FOE  AIRCRAFT  SERVICE  VEHICLES 


711 


fcl 


PRINT  71 1 

FCRMAT  (1H1 , 48  X ,4 1HI  . E.  I 
. 29X  , 78HI . B.1  INFORMATION 
.AXIHAYS,  AND  FUNHAYS) 


NPUT  INFORM 
ON  AIRCFAFT  ACTIVITY, 


A T I 0 
PARKI NG 


N/1H-, 
AR  EAS, 


AC  EH  V 3 1 0 
ACEMV31 1 
ACFMV  312 
ACEM  V3  1 3 
ACFNV314 
ACEMV  315 
ACEMV316 
ACEMV  317 
ACEMV3  18 
ACEM V3 1 9 
ACEMV 320 
ACEMV321 
ACEMV322 
AC  E M V 32  3 
ACEM V 324 
ACEMV  325 
ACEMV326 
AC  FM  V 3 2 7 
ACEMV328 
ACFMV  32° 
ACEMV 330 
ACEMV331 
ACEMV  332 
ACEMV333 
ACEMV  334 
ACEMV335 
TACEHV  336 
ACEMV337 


PRINT  61,  N ACTY  P , ( A C N A ME ( 1 AC T Y P ( I ) ) ,ANNARR(I|  , AN  N DE  P ( I)  , AN  NTGO ( 1)  ,ACEMV338 


93 


94 


9b 

95 


1 = 1 , N ACTY P) 

FORMAT  (1  60X,  17H  AIR  CRAFT  A C T 1 V I TY  , / 1H  0 , 

. 54X, * 7HNUMBER  OF  A IF  CRAFT  TYPES  ,13,/IHO, 

, 28X,8HAIPCRAFT,34X,18H(ANNUAL  NUMBER  OF)/1H  , 

. 30X,4HNAME,17X,8HARPIVALS,15X,10HDEPARTURES,15X,1 OHT/G  CYCLES// 
, ( 1 H ,28X,A8,F22.0, F24.0, F25. 0) ) 

PRINT  93  , NPK  AR 

FORM  AT ( 1 H— / 1 H 0 , 6 2X,  13 HPAP  KING  AREAS/ 

. 1H0,55X,26HNUMBER  OF  PARKING  AREAS  = ,13) 

DC  9b  I=1,NPKAF 

PRINT  94,  I DFFK  A ( I ) , NPASQ  ( I) 

FORMAT  (1 H - , 29 X , 22HP AR KI NG  AREA  NUMBER  = , 15, 4X, 

. 44HTHF  NUMBFF  OF  SQUARES  MAKING  UP  THIS  AREA  = ,I3/1H  ) 
NFS=NFASC (I) 

DC  96  J = 1 , N PS 

PFINT  95, J, (PAP EA(I, J,K) ,K=1,3) 

FCRMAT  (1 H ,24 X.16HSQU ARE  NUMBER  = ,13, 8k, 3HX 
. 8X,  17HLENGTH  OF  SIDE  = ,F6.3,3H  KM  ) 


ACEMV  339 
ACEMV340 
AC  EH V 34  1 
ACEMV342 
ACEMV  34  3 
ACEHV344 
ACEMV  345 
ACEMV346 
ACEMV  347 
ACEMV348 
ACEMV349 
ACEMV  350 
ACEMV351 
ACEMV  352 
AC  r MV  353 
ACEMV354 
ACEMV  355 
,F8. 3, ACEMV 3 56 
ACEMV  357 
ACEMV35B 
ACEMV  359 
ACEMV360 

LINE  SEGMENTS  = ,I3)ACEMV361 
ACEMV  362 


, Fd. 3, 5X, 3HY= 


PFINT  97,  NLSEGS 

97  FORMAT  (1H -/I H0,64X,8HT AXIHAYS/ 1 HO, 

. 41X, 54HNUMBEF  OF  CATALOGUED  AIRCRAFT  TAXIHAY 

PRINT  98 

98  FOFM AT  (1 H-, 6X, 24 HGROU ND  LFVEL  COORDINATES, ^X,  16HAVERAGE  EMISSION,  ACFMV363 

. 24X,  24HGFOUND  LEVEL  COOR  PINA  TES,^X,1 bHAVERAGE  EMISSION/lh  , ACEMV  364 

. 4HLI NE  ,5X, 16HOF  ONE  END  OF  L I N E, 5X , 1 6 H HE 1 G HT  (METERS), 3X,  ACEMV365 

. 8HH1LTH  OF  , 3X,7H DELTA  Z,3X,23HAT  OPPOSITE  END  OF  L1NE.3X,  AC  EM  V3  66 

. 16HHF1GI  T (METERS)  , 4X ,7 HSEGBENI/SH  NO.,  ACEMV  36  7 

. 6 X , 4 1.  X (1  ) ,8X  ,4HY  (1)  ,8X,  12HAT  X ( 1 ) , Y ( 1)  , 4X,  10HLIN  E (MET).^X,  ACEHV369 

. 6H(METFRS)  ,6X,4HX(2)  ,8X,4HY(2)  ,8X,12HAT  X (2 ) , Y (2 ) , 4 X , ACENV369 

. 11HLENGTH  (KM))  ACEHV370 

NC=0  ACFMV 371 
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991 

99 


112 


700 


DO  991  N=1,NLSEGS 
NC  = NC ♦ 1 

PRINT  99,  NC,  (ACLNSG (K,N)  ,K  = 1 , 8)  , ACLNSG  (1 1, N) 

FOR  MAT ( 1 h ,I3,1X,2F12.3,F14.2,F15.2,F11.2,2X,2F12.3,F14.2,F17.3) 


63 

64 

75 

5001 

t5 

5002 


PRINT  112,NFNWYS 

FORMAT  (1 H-/1H0 ,65X,7HRUNW AYS/ 1 HO,  58X,  20HNUM BER  OF  RUNWAYS  = ,13) 

DO  62  N=1,NRNWYS 

PRI N1  7 uO,  IRNfcY (1 ,N) 

FOPMAT ( 1H-/  1H0, 59X , 1UHR UN  WAY  ID  NUMBER  = ,14,/1H0, 

. 7X  , 1 6HC00RDI NATES  ( K M)  , 8 X , 1 6 H AV ER AGE  EM ISS ION , 6 X , 

. 16HH0RIZ0NTAL  PLUM E , 7 X , 1 4 HV E PT1C A L PLU M E , 7X , 1 3HR UN W A Y VECTOR, 

. BX, bhFUNWAY/IH  , 7 X , 3 H ( X)  , 1 0 X , 3H  ( Y)  , 1 OX , 1 2H HEIGH T (MET),8X, 

. 16HD1SPERSI0N  ( MET ) , 6X , 1 6 H DI S PERS ION  (MET),7X, 

, 11HANGLE  (DEG)  ,7X,  11HLENGTH  (KM)) 

DEGG  = RNWY  (7 ,N) *57.296 

PRINT  63,  (RNWY  (1,N) , 1=2,6)  , DEGG, DISFNW  (N) 

F OR  MAT ( 1H  ,F12.3,F13.3,F16.2,F2  3.2,F21.2,F^1.2,F17.2) 
1STCR=NWD-NSCASE 

PPINT  64,  (IUSWD(1,N) ,1=1,IST0R) 

FORMAT  ( 1 H - , 54  X , 28ti  RU  NW  AY  USE  BY  WIND  DIRECilOi.  /1H  , 

, 13X,  109H  (0=  RUNWAY  NOT  USED  WHEN  WIND  IS  t ROM  THIS  DIRECTION 
, 1=  RUNWAY  IS  USED  WHEN  WIND  IS  FROM  THIS  D I RECTI  ON)  ,/ 1 HO , 

. 1 5X , 1 0OHCA  LM  N NNE  NE  LNE  E ES E St  SSE 
. SSW  SW  WSW  W WNW  NW  N NW  ,/1H  ,11tt,161b) 

PRINT  75,  (IUSWD(I  ,N)  ,1=  18,20) 

FORMAT  (1H-,46X,42HRUNWAY  USE  BY  SPECIAL  CASE  WIND  CD N DI TI 0 N S/1 H 

> A , '••*(.  i W A I tt  0 . U j.  D J j1>  , ii  j . It  x.  S Jl  ijCi  ni  L n j L 1 

. USED  DURING  THIS  SPECIAL  CAS  E) / 1 HO, 


AC  EM V 37  2 
ACEMV373 
ACEMV  374 
AC  EM V 37  5 
ACEMV376 
ACEMV  377 
ACEMV378 
ACEMV  379 
ACEMV380 
ACEMV381 
ACEMV382 
ACEMV383 
ACEMV  384 
ACEMV385 
ACEMV  386 
ACEMV387 
AC  EM  V 38  8 
ACtMV  389 
ACEMV390 
ACEMV  34 1 
ACEMV392 
AC  F M V 3 9 3 
ACEMV  394 
SAC  EMV395 
AC  EM  V 39  6 
ACEMV  397 
ACEMV398 
I J N W A I A C C *1 V 3 9 9 
ACEMV400 


49X , 6HCASE  1,10X,6HCASE  2,10X,6HCASE  3/1H  , 5 2 X , I 1 , 2 ( 1 5 X , I 1 ) ) AC  EM V 40 1 

PRINT  5001,  ( AC  N A K E ( I A CTY  P ( J J) ) ,JJ=1,NACTYP)  ACFMV402 

FORMAT  (1H-,43  X,50HNUMBER  OF  ARRIVALS  ON  THIS  RUNWAY  BY  AIRCRAFT  TYACEMV403 
i PE,  / 1H  ,8X,8(A8,6X)  ) ACEMV404 

PRINT  65  , (RNWYAR  (I  , N)  ,1=1  , NACTYP)  ACEMV405 

FORM  AT  ( 1 R , 8 F 1 4 . 0)  AC  EM  V 4 06 

PRINT  5002,  (AC  NAME  (I  ACTYP  (JJ)  ) ,JJ=  1,  NACTYP)  ACEMV407 

FORMAT  (1H-,  42X,  52HNUMBER  OF  DEPARTURES  ON  THIS  RUNWAY  PY  AIRCRAFT  AC  EM  V4  0 8 


.TYPE  , / 1 H , 8X, 8 ( A8 , 6X ) ) 

PRI NT  65,  (RNWYDP  (I  , N)  ,1= 1 , NACTYP) 
NT  = N I bTT (N) 

IF  (NT.EU.O)  GO  TO  73 


AC  EM  V4  09 

ACEMV41 0 
ACEMV4  1 1 
ACEMV412 
AC  EM  V 4 1 3 
AC  E MV  4 1 4 
ACEMV415 
ACEMV4  16 
ACE  MV41 7 
AC  E MV  4 1 8 


DC  70  J=1 ,NI 

PPINT  5003,  IDIBTW  ( J , N ) , I D I B PA  ( J , N) 

5003  FORMAT  ( 1H-, 54X, 2BHINEOUND  TAXIWAY  ID  NUMBER  = ,IJ,/1H  , 

. 42X.52HID  OF  PARKING  AREA  TO  WHICH  THIS  TAXIWAY  IS  KEYED  = ,13) 

PRINT  5004,  (ACNAME  (IACTYP  (JJ)  ) , J J = 1 , N AC TY P) 

F OR  MAT ( 1H0.43X ,491:  FRACTIONAL  USAGE  OF  THIS  TAXIWAY  BY  AIRCRAFT  TY  PACENV419 
. E , / 1 H ,dX,8  (Ae,6X)  ) A.EMV420 

PRINT  71, (TT AP FR (J , I , N) ,1=1, NACTYP)  ACEMV421 

FORMAT  (1 H ,F13.2,7F14.2)  ACEHV422 

NSEGS=NIBSEG(J,N)  ACEMV423 

NSG  FTS  = NSEG  S ACEMV424 

PRINT  72,  NSGFTS, (1IBSEG (K,J, N) , K= 1, NSLGS)  ACEMV425 

FORMAT  (1H0,  43X, 49HNUMBER  OF  LINE  SEGMENTS  MAKING  UP  THIS  TAXIWAY  =ACEMV426 
. ,13  / 1 H , 1 3 X ,7  OHS  EQU  E NCE  NUMBERS  OF  CATALOGED  LINE  SEGMENTS  MA KI N AC E M V42 7 

. G UP  THIS  TAXIWAY  = , 10(13, 1H,)  /1H  , 4 OX , 2 0 ( 1 3 , 1 h , ) ) ACEMV428 

CONTINUE  AC  E MV  4 29 

NT  = NOETT (N ) ACEHV430 

IF  (NT.EQ.O)  GO  TO  62  ACEMV 4 3 1 

ACEHV432 

DO  80  J=1, NT  ACEMV 4 3 3 


5oG4 


71 


72 


70 

73 
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500-1 


80 

62 


6Sb9 

83 

113 

5007 

87 

es 

8^00 
9000 
c 100 
e9 


1 1 1 


b4 


100 

b6 


PrlNI  5005 , IDOBTW (J , N ) ,IDOBPA(J,N) 

FORMAT  ( 1 H- , 54  X , 2 9 H OUT  F CU  N D TAXiWAY  ID  NUB  BEE  = ,13/IH  , 
•42X.52HID  OF  PARKING  AREA  TO  WHICH  THIS  TAXIWAY  IS  KEYED  = 
PRINT  5004,  (Al  NABE(IACTYP  (JJ)  ) , JJ  = 1,  N ACTY  P) 

PFINT  71,  (TTDPFR  (J, I, N)  ,I  = 1,NACTYP) 

N SEG  S=  NOBS  EG  (J, N) 

NSGPT  S=N  SEGS 

PRINT  7z , NSGiTS,  (10BSEG (K,J, N)  ,K  = 1,  NSEGS) 

CONTINUE 

CONTINUE 

PRINT  6969 

FORhAT  (1H1  ,44X  ,49HI,  £.2  INFORM  ATI  ON  FOB  AIRCRAFT'  SERVICE 

.S) 

DC  84  1 = 1, N ACT  YP 

PRINT  «3,  ACNA«E(IACTYP (I)  ) 

FORMAT  (1H-/1H  ,51X,A8,26H  SERVICE  VEHICLE  EMISSIONS) 

PRINT  113 

FORK AT(1H0,58X, 21 H KILOGRAMS  PER  ARRIVAL) 

PRINT  50  07,  (PLNAME(JJ)  ,JJ=1,NPLTS) 

FORMAT  (1H0,  3fcX,b(A4,  1 2 X)  ) 

PRINT  87,  (ARSVEM  (K,I  , 1)  , K= 1 , NPLTS) 

FORMAT ( 1H0,  14X,  8HGA SO  L INE , 10X,  1P6  (E10.3.6X) ) 

PRINT  88,  ( ARSVEM(K,I ,Z) , K= 1 , NPLTS) 

FORM  AT  (1  HO,  14X,3HJP4 , 15X,  1P6 (E  10- 3, 6X) ) 

PRINT  9900,  (ARSVEM (K  ,1,3)  ,K=1, NPLTS) 

FORMAT  (1K9,14X,3HJP5, 15X,1P6(E10.3,oX) ) 

PFINT  9000,  (APS VFM (K , 1,4) , K= 1 , NPLTS) 

FORMAT  (1H0, 14  X,3HJPa , 15X, 1 P6 (E10. 3, oX ) ) 

PFINT  9100,  (AFSVEM  (K , 1,5)  , K= 1 , NPLTS) 

FORM  AT  (1  HO,  1 4 X , 5 HJ  TT  A , 1 3 X , 1 P6 (E 1 0 . 3 , 6 X) ) 

PFINT  85 

FORMAT  ( 1H-,  57X , 23HK ILOGFA MS  PER  DEPARTURE) 

PFINT  5007,  (PLNAME(JJ)  ,JJ=1,NP ITS) 

PFINT  87,  (DPSVEM  (K,I  ,1)  , K= 1 , NPLTS) 

PRINT  88,  (DFSVEM(K,I  ,2)  ,K  = 1,  NPLTS) 

PFINT  6900,  (DPS VEM  (K ,1.3)  , K= 1, NPLTS) 

PRINT  9000,  (DPSVEM  (K  ,1,4)  ,K=1 .NPLTS) 

PRINT  °100,  (DPSVEM (K,  1,5)  , K= 1,  NPLTS) 

PFINT  111,  ACfUEL  (I)  , ACSPIL(I)  .ARFLVT  (I)  , DRFLVT(I) 

FORM  AT  ( 1H-,  1'  X, 2 1HP  EFUELING  I NFOE MA TI ON/1  HO , 1 5 X , 

47H  AVER  AGE  AMOUNT  OF  FUEL  USED  PER  FILLUP  (LITERS), 

10  ( 1 H . ) , r 10.2/1H  , 15  X, 

50 HAVE RAGE  AMOUNT  OF  FUEL  SPILLED  PER  FILLUP  (LITERS), 

7 (1 H.) .F10.2/1H  , 1 5 X , 

50  H A V ER  AGE  AMOUNT  OF  FUEL  VENTED  PER  ARRIVAL  (LITERS), 

7 (1H.)  ,F  U1.2/1H  , 1 5X , 

52  H AV  FR  AGE  AMOUNT  OF  FUEL  VENTED  PER  DEPARTURE  (LITERS), 

5 ( 1H.)  , F 1 0 . 2///) 

CONTINUE 
30  TO  86 

STOP 

CONTINUE 

PETURN 

END 


ACEMV4  34 
ACEMV435 
,13)  ACEMV436 
ACEMV437 
AC ENV 4 38 
ACEMV439 
ACEMV440 
ACENV44 1 
ACEMV442 
AC  EM  V 44  3 
ACEMV444 
ACEMV445 
VEHICLEACEMV446 
ACEMV447 
ACEMV44 8 
ACEMV449 
ACEMV450 
ACEMV451 
ACEMV452 
ACEMV453 
ACEMV454 
ACEMV455 
ACEMV 456 
ACEMV457 
ACEMV458 
ACEMV  459 
ACEHV460 
ACEMV461 
AC  E MV  46  2 
ACEMV463 
ACEMV  464 
ACEMV465 
ACEMV466 
ACEMV467 
ACEMV468 
AC  EM V 469 
AC  EM V4 7 0 
AC  EH  V 47  1 
AC  E MV  47  2 
ACE  M V4  7 3 
ACEMV  47  4 
ACEMV475 
ACEMV476 
AC  EM  V 4 77 
ACENV478 
ACEMV479 
ACEMV490 
ACEMV481 
AC  EM V 48  2 
ACEMV483 
ACEMV  484 
ACEMV485 
ACEMV486 
ACEMV407 
ACEMV489 
ACEMV489 
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SUBROUTINE  ARRDEP 


Purpose: 


Input: 


Output : 


Subroutine 

Called: 


1.  To  establish  arrival  path  points  and  links  for  each  air- 
craft type  used  at  airbase  according  to  specified  wind 
condition  use  array. 

2.  To  calculate  annual  emissions  due  directly  to  the  movement 
of  arriving  and  departing  aircraft  on  and  over  the  airbase. 


Aircraft  data,  runway  and  taxiway  data,  arri\al  - departure 
path  data. 


1.  Annual  emissions  by  aircraft  for  each  of  the  11  operational 
modes. 

2.  ARRFGN,  DEPFCN  for  each  wind  condition  (up  to  20)  by  air- 
craft and  runway  serving  to  link  runways  to  approach  and 
climbout  paths. 


RRDIST 


non  r>  n n n n n r'  o non 


SUBROUTINE  AFPDEP(IWD)  ARRDP000 

A R RD  P001 

HIS  ROUTINE  COMPUTES  THE  ANNUAL  EMISSIONS  DUE  DIRECTLY  TO  ARPDP002 

OVEMENT  OF  AIRCRAFT  ON  OR  OVER  THE  AIRBASE  ARRDP003 

ARRDP004 

R EAL*8  ACNAME.EGNAME, NONAHI.THNANE  APRDP005 

INTEGER  ENGNO  ARRDP006 

REAL  LN  DSP  D ARRDP007 

ARRDP008 

COMMON  / ACE  DB 1/  ACEM FC  ( 50 , 1 0, 6 ) , A C N A ME  ( 50)  , EG  NAME (5  0)  , ENGNO (50, 2)  , ARRDP009 
ASCNT1 (50)  , ASC  NT2 (50)  ,TXISPD(50)  , LN DS P D (5 0 ) , AP SP D 1 (50 ) , CO HT  1 (5 0)  , AR R DP  0 1 0 
APSPD2  (5  0)  , TOSPD  (50)  ,COSPD1  (50)  ,COSPD2(50|  , SR  TUP  T(  50)  , DSC  NT  1 (50)  .ARRDP01 1 
EGCHKT ( 5 0)  , SHTDNT(50)  ,DSCNT2 (50)  , A PPH T , A PPH T2  (50)  , CLMBHT, TOUT (50)  AFRDP0  12 
COMMON  /ACEDE2/  N ACT Y P , NR NH Y S , NPK AR, I EG FL G,  I ACT Y ? (8 ) , AN N Ab B ( 8)  , ARRDP013 
ANNDEP  (e)  , AN  NT  GO  (8 ) , ARR  FC  N (2  4 , 8 , 6)  , DE  PFC  N ( 24 , 8 , 6)  ,TGO(3,  4,8)  , AFRDP014 
DISRNW(b)  , RNW Y (7,6)  , IUSH  D (2 0 , 6)  , RN W Y AR  (8 , b ) , R N U Y D P (8 , 6 ) , ACFUEL (3 ) ARRDP0  15 
, ARFLVT  (6)  , DPF  LVT  (8  ) ,ACSPIL(8)  , ARS  V EM  ( 6 , 8,  5)  , DPS  V EM  ( 6,  8,  5)  , ARRDP016 

NIBTT(b)  ,N IBS  EG (8, 6)  ,IIB  SEG ( 1 6 , 8 , 6)  , I DI B TW (8 , fa ) , TT AR F R (8 , 8 , 6)  , AFRDP017 

NOETT(t)  , N OBSEG  (8,6)  , IOBS  EG  ( 1 6, 8 , o)  , IDOBTW  (8,  6 ) , TT  DP  FR  (8 , 8 , 6 ) , ARRDP018 

NPASQ  (6)  , I DPF  K A (6)  ,PAREA  (6,3 ,3)  , IDlbPA  (8, 6)  , I DO  BP  A (8,  6)  , ARRDP019 

NLSEGS, ACLNSG ( 12,  25)  AR  R DP  02  0 

COMMON  /DEFALT/  NPLTS  AR RD P 02 1 

COMMON  /AN N MET/  TB  AR  , A DD,  P , P A , WSB  A R , D Tb  A R , A MDB  A R APPDP022 

COMMON  /TOTS/  TOT E M (2 0 , 6)  , TOT EV p ( 1 0)  , EM  ISS ( 8,  1 5, 6)  , AC EM  (8, 6)  ARRDP023 

COMMON  /EG E DE 1/  MO N AM  1 (1 0 ) , TH N A ME (4 ) , MO NA M2 ( 1 0)  , I DACEG ( 50)  , AERDP024 

I AC  ABF  (50)  , EGF  F (4,50)  ,IEGABF(50)  ,IDRR(50)  ARRDP025 

DIMENSION  ARF.SUM  (8)  ,DEPSU  M (8)  ARRDP026 


THIS  ROUTINE  COMPUTES  THE  ANNUAL  EMISSIONS  DUE  DIRECTLY  TO 
MOVEMENT  OF  AIRCRAFT  ON  OR  OVER.  THE  AIRBASE 

R EAL*8  AC  NAME, EGN AME, MON  A H 1 , T H N A M E 
INTEGER  ENGNO 
REAL  LN  DSP  D 


DO  20  1 = 1 , N ACT  YP 
DEPSUM (I)  =0.0 
ARRSUM  (I)  =0.0 
DO  20  N=1,NRNNYS 
DO  20  JK= I ,24 
ARRFCN (JK, I, N)  =0.0 
'0  DEPFCN  (JK,I  ,N)=0.0 

EEGIN  RUNWAY  IOOP 

DO  30  N= 1 , N RNW  YS 

PERFORM  CALCULATIONS  ONLY  FOR  THOSE  RUNWAYS  USED  WITH 
THIS  WIND  DIRECTION,  I WD 

IF  (IWD.EQ.21)  GO  TO  35 
IF  (IUSWD (I WL, N) . EQ .0)  GO  TO  30 

ESTABLISH  THE  X,  Y,  AND  Z COORDINATES  OF  THE  RUNWAY  ORIGIN 
AND  FIND  THE  SIN  AND  CCS  OF  THE  RUNWAY  ANGLE,  IHETA 

35  XA  = SI  N (RNWY  (7  ,N)  ) 

Y A = COS (PNWY  (7,N) ) 

X=RNNY  (2  , N) 

Y=RNWY  (3,  N) 

Z = RNWY  (4  , N)  / 1 0 0 0. 

BEGIN  AIRCRAFT  LOOP 

DC  40  1 = 1 , N ACTYP 
I D=  I ACTY  P (I) 

A A=E  NG  NO  (I  D , 1 ) 

AAA  = ENGNO  (ID,  1) 

ARR  = R NWYAR  (I ,N) 


ARRDP0 18 
ARRDP019 
AR  R DP 02 0 
AR  RD  P 02 1 
APRDP022 
ARRDP023 
ARRDP024 
ARRDP025 
ARRDP026 
ARRDP027 
ARRDP028 
AFPDP029 
ARRDP030 
AFPDP03  1 
ARRDP032 
AFRDP033 
ARRDP034 
ARRDP035 
ARRDP036 
ARRDP037 
ARRDP038 
AFRDP039 
ARRDP040 
ARPDP041 
AERDP042 
ARRDP043 
ARRDP044 
ARRDP045 
ARRDP046 
ARRDP047 
APRDP048 
AR  R DP  04  9 
ARRDP050 
AB  RD  P 05 1 
ARRDP052 
ARRDP053 
AFRDP054 
ARRDP055 
ARRDP056 
ARRDP057 
APRDP058 
ARRDP059 
ARRDP060 
ARRDP06 1 
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n n n n n n n non  non  non  n n n n n 


C 

C FOR  THOSE  AIRCRAFT  APRIVxNG  ON  THIS  RUNWAY , CALCULATE  THE 
C ARRIVAL  DATA  FOR  THE  TERMINAL  END,  THE  TOUCHDOWN  POINT, 
AND  THE  APPROACH  PATHS 

IF  (ARR.LE.0.0)  GO  TO  200 
AfiRSUM  (I ) = ARRSU  N (I ) ♦ A RR 
DIS23=APPHT2(ID) /SIN ( DSCN T2 (I D) ) 

DIS1 2 = (APPH  T-APPHT2  (I D) ) /S IN ( DSC NT  1 (ID)  ) 

HDIS 12= (APPHT-APPHT2 (ID) ) /TAN (DSC  NT  1 (ID) ) 

HDIS23=APPHT2 (ID) /TAN  (DSCNT2 (ID) ) 

HDI S34=DI SRNW  (N) 

TERMINAL  END 


ABRFCN  (19,1  , 
ARRFCN  (20, I, 
ARRFCN (21  ,1  , 
ARRFCN  (22,1, 
APPFCN (23,1, 
ARRFCN  (24  ,1  , 

TOUCHDOWN  POI 


N) 

= HDI 

S34  * 

XA  + X 

N) 

= HDI 

S 34  * 

YA*  Y 

N) 

= Z*1 

000. 

N) 

= T XI 

S PD  ( 

ID) 

N) 

= 0. 

N) 

= 0. 

NT 

APRFCN  (13 ,1 ,N) = X*0.  30  4 8*X  A 
ARRFCN(14, I , N ) = Y *0. 3048* YA 
ARRFCN(15,I ,N) =Z*1000. 

ARRFCN  (16,I,N)  = LNDSPD  (ID) 
APRFCN (17, I, N) =HDIS34-0. 3048 
ARRFCN  (18 ,1 ,N) =2.0* ARRFCN  (17 

APPROACH  PATH  POINT  2 


I , N ) / (fit  IS  PD  (ID)  *LN  DS?  D (ID)  ) 


ARRFCN (7, I, N) = ARRFCN (13,I,N)-HDIS23*XA 
ARRFCN  (8,1, N)  = ARRFCN (14,1, N)  - HDIS 23* Y A 
ARRFCN (9,  I, N) =APPHT2( ID) * 1 000. 

ARRFCN  (1  0,1  ,N)  = APSPD2  (ID) 

ARRFCN  (11,  I,  N ) =DIS23 

ARRFCN ( 12,I,N)  =2. 0*DI S23/(LNDSPD (ID)  * APSPD2  (ID)  ) 
APPROACH  PATH  POINT  1 


ARRFCN (1,  I,  N) 
ARF  FC  N ( 2,  I , N) 
ARRFCN  (3 , 1 , N) 
ARRFCN (4, I, N) 
ARRFCN  (5,1  , N) 
ARRFCN (6, I, N) 


= ARRFCN  (7,I,N)-HDIS12*XA 
=ARRFCN(8,I,N)-HDIS12*YA 
=APPHT*1000. 

= APSP D 1 ( ID) 

=DIS1 2 

= 2.0*DIS  12/(  APSPD2  (ID)  *APSPD1  (ID)  ) 


IF  IWC  IS  21,  CALCULATE  THE  ANNUAL  EMISSIONS  DUE  TO  THE 
AIRCRAFT  ARRIVING  ON  THIS  RUNWAY 


IF(IWD.NE.2  1)  GO  TO  200 


APPROACH  AND  LANDING 


EMISSIONS,  MODES 


7, 


8 AND  9 


JK  = 0 

DO  1 10  J = 1,  3 
JMODE= J*6 
JK=JK  +6 

DC  120  K= 1 , NPLT S 

120  EHISS (I,JHODE,K)  =EH I S S (I , JMOD E , K)  *AA*  ACEMFC (ID, JMODE.K)  ♦ 
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ARBDP062 
APRDP063 
ARRDP064 
APRDP065 
ARRDP066 
APRDP067 
ARRDP068 
APR DP  06 9 
ARRDP070 
ARRDP07 1 
ARRDP072 
ARRDP073 
AFRDP074 
ARRDP075 
APRDP076 
ARRDP077 
APRDP078 
APRDP079 
ARRDP080 
ARRDP08 1 
ARRDP082 
APRDP09  3 
Afi  RD  P 084 
APRDP085 
AR  R DP  086 
A R R DP  087 
APRDP088 
AR  R DP  089 
ARRDP090 
AR  R D P 09 1 
APPDP092 
APRDP09  3 
AR  RD  P 094 
ARRDP095 
ARRDP096 
ARRDP097 
ARRDP098 
ARRDP099 
ARRDP100 
ARRDP1 01 
AFRDP1 02 
AFRDP103 
APR  DPI  04 
APPDP105 
AR  R DP  1 06 
APRDP107 
ARRDP1 08 
AR  R DP  1 09 
ARHDP1  10 
ARR  DPI  1 1 
ARRDP112 
AR  R DP  1 1 3 
ARRDP1 1 4 
ARRDP  1 1 5 
ARRDP 116 
APRDP1 17 
AR  R DPI  1 8 
APRDP1  19 
AR  R DP  1 2 0 
AR  R DP  1 2 1 
ARRDP122 
AR  R DP  1 2 3 


n n n n,  n 


. ARR*ARRFCS  ( IF , r . N ) 

1 ’ . ' t.  _I  N'lF 

t n r r • u - taxi  ani  shutdown  emissions, 

NTT-  N I ITT  i N ) 

DO  130  J = 1 , NTT 

f F (TTAPFP ( J, I, N)  . LE. 0.)  GO  TO  130 
NSEGS  = NIBSEG  (J,  N) 

DO  131  K=1, NSEGS 


ARRDP124 
AP  RDP1 2 5 
ARR  DP  1 26 

MODES  10  AND  11  ARRDP127 

ARRDP128 
ARRDP129 
ARRDP130 
ARR  DP  1 3 1 
ABRDP132 
ARPDP133 
ARRDP134 
ARRDP1  35 
AFRDP1 36 
ARRDP  1 37 
ARRDP138 
ARRDP1 39 
ARRDP1U0 
ARRDP 141 
ARRDP  142 
ARRDP1  43 
ARRDP144 
ARRDP145 
ARR  DPI  46 
ARR  DP  1 47 
AR  R DP  1 48 
ARR  DP  1 49 
AR  B DP  1 5 0 
ARRDP151 
ARRDP  152 
AR  R DP  1 5 3 
APR  DP  1 54 
APRDP1 55 
ARRDP156 
ARRDP  157 
ARRDP1 58 
ARRDP159 
ARRDP 160 
APRDP161 
ARRDP  162 
AR  R DP  1 63 
ARRDP 164 
ARRDP165 
AP  R DP  1 66 
ARRDP  167 
ARRDP168 
ARRDP  169 
AP  R DP  1 7 0 
ARRDP17  1 
ARRDP172 
AR  R DP  1 7 3 
AR  R DP  1 7 4 
ARRDP1 75 
ARRDP 17  6 
AR  R DP  1 77 
AP  R DP  1 78 
AP  R DP  1 79 
ARR  DP  1 8 0 
ARRDP  18  1 
ARRDP182 
APRDP183 
APRDP184 
ARRDP185 


N 2 - i I BSLG  ( K,  J,  N) 

TIME  = ACi.NS3  (1  1 , N2)/  (ACLNSG  (9.  N2)  *TXISPD(ID|) 

IF  (IEGFLG.NE.O)  A AA  = ENGNO (ID , 2) 

DO  150  KK=  1 , NPITS 

1 50  EMISS  (I,  10, KK) = EMISS  (I,10,KK> ♦ A A A * ACE  MFC ( I D , 2 , KK>  *A  RR  *TI HE* 

. TTARFfi(J,I,N) 

131  CONTINUE 

DO  1 60  K = 1, NPLTS 

160  EMISS  (I  ,1  1 ,K)  =EMISS  ( I , 1 1 , K)  ♦ A A A*  ACEMF  C ( ID,  1 , K ) * AR  R*  S HTDNT  ( ID ) * 
. TTARFR  (J, I.NJ/60. 

130  CONTINUE 
C 

C IF  IN  D IS  21,  CALCULATE  THE  ANNUAL  EMISSIONS  DUE  TO  THE 
C AIRCRAFT  DEPARTING  FROM  THIS  RUNWAY 
C 

200  DEP-RNWYDP(1,N) 

IF  (DEP.LE.O.O)  GO  TO  40 
DEPSUM  (I)  =DEPSUM (I)  +DEP 
IF  (IND.NE.21)  GO  TO  40 

C 

DIS23=COHT1 (ID)  /SIN (A  SC NT  1 (ID)  ) 

DI  S34  = (CLMBHT  -COHT  1 (ID))/SIN(ASCNT2(1D)) 

WSPD=WSBAP* 1. 9426 
1 Fi  = l DRR  (I  P) 

H D IS  1 2 = R R D I ST  (IR , P A ,T BAR , TOW T (ID)  ,WSPD)  * 3.  048E-4 
HDI S 23=COHT 1(ID)  /TAN ( ASCN  T1 (ID)  ) 

H PI  534=  (CLMBHT-C0HT1  ( I D)  ) /T  AN  ( AS  C NT 2 ( I D)  ) 

L =NO  ES  EG ( 1, N) 

NL=I CBSEG ( L , 1 , N) 

C 

C START  OF  RUNWAY  ROLL 
C 

DF.PFCN  ( 1,  I,  N)  =X 
DEPF  C N (2 , 1 , N)  = Y 
DEPFCN  (3, I, N) =Z*  1000. 

DEPFCN  (4, I, N)  =TXI SPD( ID)  *ACLN SG  ( 1 0, NL) 

DEPFCN  (5,1  ,N;  = H DIS 1 2 

DEPFCN  (6,  I,  N)  =2.0*HDIS12/(TXISPD  (ID)  * ACLNSG  (10.NL)  *TOSPD(ID)  ) 

LIFTOFF  POINT 

DEPFCN  (7, I, N)  = X*HDIS 1 2*XA 
DEPFCN  (B, I, N)  =Y  *HDI S 1 2*YA 
DEPFCN  (9,1  , N)  =2*1000. 

DEPFCN  (10, I, N) =TOSPD (ID) 

DEPFC  N ( 1 1 ,1 , N)  = DI S2 3 

DEPFCN  (12 ,1 ,N) =2.0* DIS23/ (TOSPD(ID)  ♦COSPDI(ID) ) 

CLIMBCUT  - 2ND  PHASE 
C 

DEPFC  N ( 1 3 ,1  , M)  = DEPFCN  (7,1,  N)  *HDIS23*XA 
DEPFCN  (14 ,I,N)  = DEPFCN  (8,1, N) *HDIS 23* Y A 
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n ci  o nrir-ono^nno  n o n o nno  non 


DEPFCN ( 15,1, N) =C0HT1 (ID) * 1000. 

DEPFCN  ( 16 , 1 , N)  =C0S  PD1  (ID) 

DEPFCN  (1 7 , I , N)  = DIS34 

DEPFCN ( 18, I.N)  =2.0*DIS34/(COSPD1 (ID) ♦ COSPD2  (ID) ) 

END  OF  CL  IN  BOUT  NODE 

DEPFCN  (19, I, N ) =DEPFCN  (13 , 1 ,N)  *HDI S34* XA 
DEPFCN (20, I, N)  =DEPFCN  ( 1 4, I , N)  ♦ HDI S34 * Y A 
DEPFCN  (21  ,1  ,N)=CLHBHT*1000. 

DEPFCN  (22,  I.N)  =COSPD2  (ID) 

DEPFCN  (23  ,1  , N)  =0 . 0 
DEPFCN (24, I.N) =0.0 

RUNWAY  ROLL,  LIFTOFF  AND  CLINBOUT  ENISSIONS,  NODES  4,  b AND  6 
JK  = 0 

DO  210  J = 1 ,3 
J K=JK  *6 
J HO  DE=J*  3 
DC  220  K= 1 , NPLTS 

2 20  ENISS  (I,  J NODE,  K)  =EH  I S S (I , JHODE  , K)  + A A*  ACE NFC  (ID,  J NODE,  K.)  * 

. DEP*DEPFCN  ( J K, I , N) 

210  CONTINUE 

IDLE  AT  STARTUP,  OUTBOUND  TAXI,  AND  ENGINE  CHECK  ENISSIONS, 
NODES  1,  2 AND  3 

NTT  = NOBTT  (N  ) 

DO  230  J=  1 , NTT 

IF  (TTDPFR (J,I,N) . LE. 0. ) GOTO  230 
NSEGS =NOBSEG ( J , N) 

DO  231  K=1, NSEGS 
NK=IOBSEG (K , J , N ) 

TI  HE  = ACLNSG  (1 1 , NK)  / ( A CLNS  G (9  , NK)  *TX  IS  p D (I  D)  ) 

IF  (IEGFLG.NE.0)  A A A = ENGNO (ID , 2) 

DO  250  KK=1, NPLTS 

2 50  ENISS  (1,2, KK) =EHI5S  (I  , ^ , K K) ♦ A A A* ACEHFC ( I D, 2, KK)  *DEP  *TIHE* 

. TTDPFR(J,I,N) 

231  CONTINUE 
230  CONTINUE 

DC  260  K= 1 , NPLTS 

ENISS  (I,  1 , K ) =EHI3S( t , 1,K)  ♦ AA*  ACE  NFC  (I  D , 1 , K)  *D  E P*  S RT  U PT  ( 1 D)  /6  0 . 
2 60  ENISS  (1 ,3 ,K) =EHIS3 (i, 3,K)  ♦ A A* ACEH FC (ID,  3,  K)  * DEP*  EGC  HKT  (ID)  /6  0. 

END  AIRCRAFT  LOOP 

40  CONTINUE 

END  RUNWAY  LOOP 

30  CONTINUE 

FOR  ALL  RUNWAYS,  CALCULATE  THE  ARRIVAL  AND  DEPARTURE 
FRACTIONS  OF  AIRCRAFT  USE  WITH  THIS  RIND  DIRECTION,  IWD 

DO  3 00  N 1 , NRNW YS 
DO  300  I = 1 , N AC  TY  P 
IF  (IWD. EQ. 21)  GO  TO  301 

ACCUHULATE  ANNUAL  ENISSIONS  FOR  EACH  AIRCRAFT  TYPE 


AR  R DPI  86 

ARPDP187 

ARRDP1 88 

AR  R DP  18  9 

ARRDP190 

APRDP191 

ARRDP  192 

AR  R DP  1 9 3 

APRDP194 

ARRDP1 95 

AFRDP196 

AR  R DP  1 97 

ARRDP198 

ARRDP199 

ARRDP200 

ARRDP20  1 

APRDP202 

AFRDP20  1 

ARRDP204 

AR  R DP  20  5 

AKRDP206 

AR  R DP  207 

ARRDP208 

ARRDP209 

ARRDP210 

ARRDP21 1 

AR  R DP  2 1 2 

ARRDP2  13 

ARRDP214 

ARRDP21 5 

ARRDP216 

APRDP217 

ARRDP218 

AFRDP219 

AFRDP220 

ARRDP221 

ARRDP222 

ARRDP223 

ARRDP224 

ARRDP225 

ARRDP226 

ARRDP227 

AFRDP228 

AR  R DP  2 29 

ARRDP23  0 

AFPDP211 

ARRDP232 

APRDP23 1 

ARRDP234 

A h R D P 2 3 5 

ARRDP236 

ARRDP217 

ARRDP23  b 

ARRDP. 19 

ARRDP240 

ARRPP24 1 

AERDP242 

AFRDP  i 

APT  O'  '-4 

ARRDP2'!  r. 

a 

A I ! I I . 4 ' 
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IF  (IUSHD(IWD.N).EQ.O)  GO  TO  300 

ARRDP248 

301 

ABBFCN  (2  3,1,  IT.  =RNWYAR  (I,N)  /ARRSUM  (1) 

APPDP249 

DEPFC  N (2  3 ,1  ,N)  = BNWYDP  (I,  NJ/DEPSUM  (I) 

ABRDP250 

ARR  FCN (24, I , N) = RN  BY (5  , N) 

APPDP251 

DEPFCN(24,I  , N)  = RNW  Y (6  , N) 

ABRDP2S2 

300 

CONTINUE 

AFRDP253 

DO  270  1=1 , NACTYP 

ABRDP254 

DO  270  J = 1,  1 1 

APRDP255 

DC  270  K=1  , NPLTS 

ARRDP256 

270 

ACEH  (I, K)  = ACE(1(I,K)  ♦ EttlSS  (I , J ,K) 

ARPDP257 

RETURN 

ARRDP258 

END 

ARRDP259 
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BLOCK  DATA 


Purpose: 

1.  To  provide  default  physical  parameters  for  training 
fires,  test  cells,  runup  stands  and  storage  tanks. 

2.  To  initialize  hydrocarbon  evaporative  parameters. 

3.  Initialize  basic  aircraft  data. 

4.  Define  power  plant,  incinerator,  training  fire,  land 
use,  aircraft  engine  emission  factors  and  engine  fuel 
flow  rates. 

5.  To  provide  fuel  constants  used  in  the  vapor  pressure 
equations. 

I/O: 

None . 
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BLOCK  DATA 


C 

C 

c 


c 


c 


c 


BLOCK  DATA  PLACES  DEFAULT  VALUES  IN  COHHON  BLOCKS 


PEAL*  8 ACNAHE,HONAH1,THNAHE,HINUS,EGNAHE 
INTEGEF  ENGNO 
REAL  LUEHFC , LNDSPD 

COHHON  / ACE  D3 1/  AC EHF C (SO , 1 0 , 6 ) , ACNAHE(SO)  , EGN  AH  E ( 50)  ,ENGNO(50,2)  , 
. ASCNT 1 ( 50)  , ASCNT2 (50) ,TX ISPD ( 5 0)  , LN D SP D ( SO ) , APS P D 1 ( 50)  ,COHT 1(50)  , 
. APS PL 2 (50)  , TOSPD(5  0)  ,COSPD1 (50)  , COSPD2 (50)  ,SRTUPT(50)  , DSC  NT  1 (50)  , 
. EGCHKT  (5  0)  .SHTDNT (50)  , DSCNT2 (50)  , APP HT . APP HT 2 ( 50)  , CLHBHT,  TOUT (50) 
con HON  /AC ED 92/  N ACT Y P, NR NN YS , NPK AR , I EGFLG , 1 ACTYP (8)  , A N NAR R (8)  , 

. ANNDEP (8)  , ANN TGO ( 8 ) ,ARRFCN(24,8,b)  , DEPFCN ( 24, 8, b)  , TGO (3,4 ,8)  , 

. DISRNW  (6)  , RNWY  (7,6)  , IUSHD  (20,6)  ,RNWYAR(8,6),RNWYDP(6,6),  ACFUEL  (8) 
.,ARFLVT (8) , DPFLVT(R)  , ACSPIL(R)  ,ARSVEM (6,8,5)  , DPS VE  H (6,8,5)  , 

. NIBTT  (6)  , N I B SEG  (8  ,6 ) , 1 1 BS  EG  ( 1 6 , 8 , 6 ) , I DI BTW  ( 8 , 6 ) , TT  AR  FF  (8 , 8 , 6)  , 

. NOBTT  (b)  , NOBS EG  (8, 6)  , IOBSEG( 1b, b,b)  , IDOBTh (8,6)  , TTDPF P ( 8 , 8 , 6)  , 

. NPASC (6)  ,IDPR  KA (6)  , PA  RE A (6,3, 3)  , IDIBPA (8,b)  , I DO  BP A (8 ,6)  , 

. NLSEGS, ACLNSG  (12,25) 

COnnON  / A N N n ET/  TBAR,  ATD.P.PA, WSB A R , DTB AR , A HDB A R 
COHHON  /DEFALT/  NPL TS , I T A PE , MI NU S (6 ) , 

. ACLNDY, ACLNDZ.TCVSDF.TCHPDF, TCHODF , TCD YD F , TC D ZDF , RU DSDF , P UT SDF , 

. RUVSDF  ,RUHBDF,RUHODF  , RU D Y DF , R U DZ  DF , T FDZ  D F,  T F() DF , T FH  BDF,  T F HO DF, 

. EGCKTY , EGCKDZ, ACHLPL , AR D S DZ , ATD S DY , A TD SD Z, TCD SDF , TCTSDF , F PDFLT , 

. TDDFI.T,RFDFLT,SFDFLT  , PF D F LT  , T F DF LT  , T FCYDF 
CCHHON  /EGEDB1/  HON  AH  1 ( 10)  .THNAHE (4)  , NONAN2 (10)  ,1 DACEG (50)  , 

. I AC  ABF  (50)  , EG  F F (4 , 50 ) ,IEGABF(50)  ,IDRR(50) 

COHHON  /EHFLB1/  EG  EH  FC  (b  , 4 , 50 ) , P L NA  HE  (b ) , PPE  HF  C ( 2 2 , 6)  , EHFCIN  (5,  6)  , 
. TFEHFC(h)  .LUEHFC (9, 6)  , ALPHA (7)  .BETA (7)  , FLD EN S (7)  , FLN AHE (7 ) , 

. AF E KFC  (2 , 6 ,6 ) , ATEHFC  (2 , 6 , 6)  , CS E HFC (6 , 6 ) , AF CS EH (6 , 6)  , AFSOAK, 

. ATSOAK, AFBPTH, ATBP TH , FL T FCT ( 7) ,FIXFCT(7) , HRKFCT (7) 

COHHON  /TOTS/  TOTE  H ( 2 0 , 6)  , TOT  E V P ( 1 0)  , EH  ISS  ( 8 , 1 5 , b ) , AC  EH  (8 , 6) 


DIHENSION 
. EGLA05  (6,4)  , 
. EGDA10(6,4), 

. EGDA1 5 (6,4)  , 
. EGDA20 (6, 4 ) , 
. EG  D A2 5 (b  , 4 ) , 
. EGDA30(b,4)  , 
. EGDA 35  (6 , 4 ) , 
. EGDA40  (6  ,4)  , 
. EGDA45(6,4)  , 
. EGD  A5  0 (6 , 4 ) 


EGDAO  1 

(6, 

EGDAC6 

(6, 

,4) 

EGDA  1 1 

(6, 

r4) 

EGDA  16 

(6, 

EGDA2  1 

(6, 

,4) 

EGDA 26 

(6, 

' 4) 

EGDA  3 1 

(b, 

,<*) 

EGDA36 

(6, 

t 4 ) 

EGDA4  1 

(6, 

-4) 

EGDA46 

(6, 

,4) 

EGDA02  (b, 
EG  D AO  7 (b, 
EGDA 1 2 (6, 
EG  DAI  7 (b, 
EGDA22  (6, 
EGDA2  7(6, 
EGDA32  (b, 
EGDA  37  (fc, 
EGDA42  (6, 
EGDA4  7 (6, 


4)  , EGD  A 03  (6,4) 
4),  EGD  AO  8 ( 6 , 4) 
4)  , EGDA  1 3 (b  , 4) 
4),  EGD  A18  (6,4) 
4)  , EGD  A23  (6, 4) 
4)  , EGDA28  (6,4) 
4),  EGD A33  (6, 4) 
4)  , EGD  A 38  (6,4) 
4),  EGDA  4 3 (6,4) 
4),  EGD  A4  8 (6,4) 


, EGDA04 (6,4) , 
, EGDA09 ( 6, 4)  , 
, EGDA 1 4 (6,4)  , 
, EGDA 19 (6,4)  , 
, EGDA2  4(6,4)  , 
, EGDA29 (6,4)  , 
, EGDA34  (6, 4) , 
, EGDA3  9 ( 6,4)  , 
, EGDA44  (6,4)  , 
, EGDA  4 9 ( 6 , 4)  , 


ECUI VALENCE 


(EGEHFC ( 1) 
( EG  EHFC ( 49 ) 
(EGEHFC  (97) 
EGEH  FC ( 1 45) 
EGEHFC  (193  ) 
EGEH  FC  (24  1 ) 
EGEHFC ( 289) 
EGEHFC  (3  37  ) 
EGEH  FC  l 385) 
EGEHFC (433) 
LG  EH  FC  (48  1) 
EGEHFC (529) 
FGEHFC  (577) 
I GEH  FC (625) 
EGEHFC (6  7 1 ) 
EGEHFC  (721 ) 


, EG  DA  0 1 ( 1 
, EGDA03  ( 1 
, EGDA05  ( 1 
, EGDA07 ( 1 
, EGDA09  (1 
, EG  DA  1 1 (1 
, EG  D A 1 3 ( 1 
, EG  D A 1 5 ( 1 
, EGDA  17  ( 1 
, EG  DA19  (1 
, EGD A2 1 (1 
, EG  DA  23  ( 1 
, EG  D A25  ( 1 
, EGDA27  (1 
, EG  D A29  ( 1 
, EG  D A3  1 ( 1 


, ( EG  EHFC ( 2 5)  , EGDA  02 ( 1 ) ) , 
, (EGEHFC(73)  , EG DA 04 (1)  ) , 
, (EGEHFC  (121)  ,EGDA06(1)  ( 
, (EGEHFC(169)  ,EGDA08  (1) ) 
, (EGEHFC(217) , EGDA 1 0 ( 1) ) 
, (EGEHFC (265) ,EGDA12(1)  ) 
, (EGEHFC(313)  ,EGDA14 (1) ) 
, (EGEHFC(36  1)  , EGDA  16  ( 1)  ) 
, (EGEHFC (409)  ,EGDA18(1) ) 
, (EGEHFC(457)  , EGDA2  0 ( 1 ) ) 
, (EGEHFC(505)  , EGDA  2 2 ( 1)  ) 
, (EGEHFC (553)  , EGDA24  (1) ) 
, (EGEHFC (60 1)  , EGDA26( 1) ) 
, (EGEHFC(649)  , EGDA  28 ( 1) ) 
, (EGEHFC(697)  , EGDA3  0 ( 1 ) ) 
, (EGEHFC (745) , EGDA32( 1)  ) 


BLKDTOOO 
BLKDTOO 1 
BLKDT002 
BLKDTOO  3 
BLKDT004 
BLKDT005 
BLKDT006 
BLKDT007 
BLKDT008 
BLKDT009 
BLKDT01 0 
BLKDT01 1 
BLKDT012 
BLKDT013 
BLKDT01 4 
BLKDT015 
BLKDT01 6 
BLKDT017 
BLKDT018 
BLKDT019 
BLKDT020 
BLKDT021 
BLKDT022 
BLKDT023 
BLKDT024 
BLKDT025 
BLKDT026 
BLKDT027 
BLKDT028 
BLKDT029 
BLKDT030 
BLKDT03 1 
BLKDT032 
BLKDT033 
BLKDT034 
BLKDT035 
BLKDT036 
BLKDT037 
BLKDT038 
BLKDT039 
PLKDT040 
BLKDT04 1 
BLKDT04  2 
BLKDT043 
BLKDT044 
BLKDT045 
BLKDT046 
BLKDT047 
BLKDT048 
BLKDT049 
BLKDT050 
ELKDT05 1 
BLKDT052 
BLKDT053 
BLKDT054 
BLKDT055 
BLKDT056 
BLKDT057 
ELKDT058 
BLKDT059 
BLKDT060 
BLKDTOO 1 


55 


(EGEHFC(769),EGDA33 (1)) , (EG EHFC (793)  , EGDA 3«  ( 1))  , BLKDT062 

• (EGEHFC(8  17)  ,EGDA35  ( 1)  ) , (EGEHFC (84  1)  , EGDA36  ( 1) ) , BLKDT06  3 

. (EGEHFC  (865) ,EGDA37 (1) ) , ( EGEHFC (889 ), EGDA38 ( 1)  | , BLKDT064 

. (EGEHFC(9 13)  ,EGDA39(1) ) , ( EGEHFC  (9 3 7)  , EGDA 4 0 ( 1) ) BLKDT065 

EQUIVALENCE  (EGEHFC (9 6 1)  , EGDA4 1 ( 1 ) ) , (EGEHFC  (985)  , EGDA42 (1 ))  , PLKDT066 

. (EGEHFC (1009)  , FGDA43 (1)  J , (EGE  HFC  ( 103  3)  , EGD  A44  ( 1)  ) , BLKDT067 

(EG  EH  FC ( 10  57) , EGDA  4 5(1))  , (EGEHFC ( 1 08 1 ) ,EGDA46  ( 1 )) , BLKDT068 

(EGEHFC (1105)  ,EGDA47(1)),  (EGEHFC ( 1 129)  , EGDA48 ( 1)  ) , BLKDT069 

. (EGEHFC ( 11 53) , EGDA49 ( 1) ) , (EGEHFC  ( 1 177)  , EGDA50 ( 1) ) BLKDT07  0 

C BLKDT07 1 


DATA 

EGDA01 

/ 

38.9, 

9.60,  2.4,  0. 

23,  1.0 

. o.o. 

B1KDT072 

A 

10.0, 

0.80,  5.5,  2. 

22,  1.0 

, 0.0, 

ELKDT07  3 

H 

2.3, 

0.03,  12.0,  2. 

22,  1.0 

, O.o, 

BLKDT074 

B 

13.0, 

0.01,  4.6,  0. 

67,  1.0 

, 0.0  / 

BLKDT075 

DATA 

EGDA02 

/ 

70.03, 

53.44,  2.23, 

0. 1905, 

1.0,  0.0, 

BLKDT076 

A 

15.50, 

5.5  0,  4.15, 

0. 5333, 

1.0,  0.0, 

BLKDT077 

H 

1.91, 

0.45,  9.94, 

2. 1120, 

1.0,  o.c. 

BLKDT078 

B 

31.70, 

0.70,  4.40, 

0.1378, 

1.0,  0.0  / 

BLKDT07  9 

DATA 

EGDA  03 

/ 

79.7  , 

22.2,  1.8,  0.63,  1.0, 

0.0, 

BLKDT080 

A 

9.5, 

1.0,  7.5,  0.63,  1.0, 

0.0, 

BLKDT08  1 

H 

2.  1, 

0.4,  9.5,  0.63,  1.0, 

0.0, 

BLKDT082 

B 

2.1. 

0.4,  9.5,  0.63,  1.0, 

0.0  / 

PLKDT083 

DATA 

EGDA04 

/ 

83.35, 

103.92,  2.02, 

0.38, 

1.0,  o.c. 

PL  K DT  08  4 

A 

8.99  , 

3.79,  7.30, 

0.  38, 

1.0,  0.0, 

BLKDT095 

H 

0.41, 

.11,  14.13, 

0.38, 

1.0,  0.0, 

BLKDT086 

B 

0.4  1 , 

.11,  14.13, 

0.38, 

1.0,  O.C  / 

BLKDT087 

DATA 

EGDA05 

/ 

68.20, 

10.4  , 6.52, 

2.21, 

1.0,  0.0, 

PLKDT088 

A 

6.30, 

2.0  , 12.0  , 

2.  21, 

1.0,  0.0, 

PLKDT089 

H 

3.  10, 

0. 165,  26.9  , 

2.21 . 

1.0,  o.c. 

BLKDT090 

B 

6.39  . 

0.  014,  9.0  , 

2.21, 

1.0,  0.0  / 

BLKDT09  1 

DATA 

EGDA06 

/ 

179.57, 

29.90,  1.26, 

0.013, 

1.0,  o.o. 

BLKDT092 

A 

43.34, 

3.37,  2.32, 

0.017, 

1.0,  0.0, 

BI  KDT093 

H 

29.  33, 

0.84,  2.68, 

0.018  , 

1.0,  0.0, 

BLKDT094 

B 

26.04, 

0.07,  1.99, 

0.008, 

1.0,  0.0  / 

BLKDT095 

DATA 

EGDA07 

/ 

76.2, 

56.86,  1.29, 

1.57,  1 

.0,  0.0, 

BLKDT096 

A 

1.9, 

0.10,  11.9  , 

1.57,  1 

.0,  0.0, 

ELK  DT097 

H 

0.6, 

0.23,  8.2  , 

1.57,  1 

.0,  0.0, 

BLKDT098 

B 

12.0, 

0.12,  4.1  , 

1.57,  1 

.0,  0.0/ 

BLKDT099 

DATA 

EGDA08 

/ 

66.73, 

22.98,  2.95, 

0.300, 

1.0,  0.0, 

BI KDT100 

A 

38.50, 

12.90,  3.75, 

1.400  , 

1.0,  0.0, 

ELKDT10  1 

H 

0.59, 

0.18,  28.52, 

1 .500, 

1.0,  0.0, 

BLKDT102 

B 

0.50, 

0.10,  38.00, 

0.085, 

1.0,  0.0  / 

BLKDT103 

DATA 

EGDA09 

/ 

14.01, 

10.39,  6.17, 

0.611  , 

1.0,  0.0, 

BLKTVMOU 

A 

6.08  , 

4.80,  6.46, 

1.042, 

1.0,  0.9, 

BLKDT105 

H 

2.00, 

2.  25,  9.26, 

0.565, 

1.0,  0.0, 

BLKDT106 

B 

1.04, 

0.21,  10.98, 

0.710, 

1.0,  0.0  / 

BLKDT107 

DATA 

EGDA 1 0 

/ 

23.78, 

7.420,  7.35, 

0.38, 

1.0,  0.0, 

BLKDT10R 

A 

5.92, 

0.110,  9.88, 

0.63, 

1.0,  0.0, 

BLKDT109 

H 

2.28, 

0.064,  10.27, 

0.71, 

1.0,  0.0, 

BLKDT1  10 

B 

2.28  , 

0.064,  10.27, 

0.71. 

1.0,  0.0  / 

BI K DT1 1 1 

DATA 

EGDA 1 1 

/ 

742.50 

, 191.40,  1.02 

, 60.0, 

0.6,  O.O, 

PLKDT 112 

A 

691.66 

, 9.46,  9.37 

, 40.0, 

0.6,  0.0, 

BLKDT1  13 

n 

1155.80 

, 20.40,  1.11 

, 20.0, 

0.6,  0.0, 

BLKDT1 1 4 

B 

1155.80 

, 20.40,  1.  1 1 

, 20.0, 

0.6,  0.0  / 

B1KDT115 

DATA 

EGDA  12 

/ 

848.  18 

, 144.50,  1.09 

, 60.0, 

0.6,  0.0, 

BLKDT 116 

A 

971.97 

, 17.40,  6.60 

, 40.0, 

0.6,  0.0, 

PLKDT1  17 

H 

1031. 25 

, 22.47,  5.32 

, 20.0, 

0.6,  0.0, 

BLKDT1 18 

B 

1031.25 

, 22.47,  5.32 

, 20.0, 

0.6,  0.0  / 

PLKDT1 19 

DATA 

EGDA 1 3 / 75.3, 

61.8, 

1.9, 

1.18, 

1.0, 

0.0, 

BLKDT 120 

A 

46.1, 

22.  3 , 

3.6, 

1.  18, 

1.0, 

0.0, 

PL  K DT  1 2 1 

H 

2.3, 

0.9, 

15.2, 

1.18, 

1.0, 

0.0, 

PLKDT122 

B 

2.3, 

0.9  , 

15.2, 

1.18, 

1.0, 

0.0  / 

PLKDT123 
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DATA 

EGDA14 

/ 

127.17, 

19.50 

, 1.53,  0.729,  1.0,  0.0, 

BLKDT124 

A 

49.08, 

1.29 

, 2.67,  0.017,  1.0,  0.0, 

BLKDT125 

n 

31.32, 

0.50 

, 3.60,  0.020,  1.0,  0.0, 

BLKCT126 

B 

20.60, 

0.02 

, 6.91,  0.017,  1.0,  0.0  / 

BLKDT127 

DATA 

EGDA  15 

/ 

40.1 , 

9.00, 

2.7,  0.23,  1.0,  0.0, 

BLKDT128 

A 

7.8, 

1.70, 

5.8,  2.22,  1.0,  0.0, 

BLKDT129 

M 

1 .8, 

0.06  , 

14.8,  2.22,  1.0,  0.0, 

BLKDT1 3 0 

B 

13.5, 

0.02, 

5.7,  0.67,  1.0,  0.0  / 

BLKDT131 

DATA 

EGDA  16 

/ 

46.4, 

12.58, 

6.52,  2.21,  1.0,  0.0, 

BLKDT132 

A 

6.0, 

2.00, 

12.00,  2.21,  1.0,  0.0, 

BLKDT133 

n 

3.0, 

1.20, 

19.70,  2.21,  1.0,  0.0, 

BLKDT134 

B 

24.8, 

2.00, 

4.47,  2.21,  1.0,  0.0  / 

BLKDT135 

DATA 

EGDA  17 

/ 

113.0, 

17.4, 

2.5,  0.105,  1.0,  0.0, 

BLKDT136 

A 

1 1.0, 

0.  9, 

6.3,  0.105,  1.0,  0.0, 

BLKDT137 

M 

0.7  , 

0.2, 

11.8,  0.105,  1.0,  0.0, 

BLKDT1 38 

B 

0.7, 

0.  2, 

11.8,  0.105,  1.0,  0.0  / 

BLKDT139 

DATA 

EGDA  18 

/ 

107. 1 , 

66.  2, 

1.3,  0.105,  1.0,  0.0, 

BLKDT140 

A 

5.2. 

2.4, 

10.6,  0.105,  1.0,  0.0, 

B J KDT141 

H 

1.6  , 

0.  6, 

22.3,  0.105,  1.0,  0.0, 

BLKDT142 

B 

1.6, 

o.  e , 

22.3,  0.105,  1.0,  0.0  / 

BLKDT143 

DATA 

EGDA  1 9 

, 

19.3, 

2.30, 

4.0,  0.53,  1.0,  0.0, 

BLKDT144 

A 

3.0, 

0.60, 

11.0,  0.53,  1.0,  0.0, 

BLKDT145 

n 

1 .8  , 

0.05. 

44.0,  0.53,  1.0,  0.0, 

BLKDT1 46 

B 

55.0, 

0.10, 

16.5,  0.53,  1.0,  0.0  / 

BLKDT147 

DATA 

EGDA20 

/ 

57.2, 

12.00, 

3.5,  0.044,  1.0,  0.0, 

BLKDT148 

A 

8.0, 

0.20, 

8.4,  0.045,  1.0,  0.0, 

BLKDT149 

n 

1.4, 

0.20, 

24.0,  0.050,  1.0,  0.0, 

BIKDT150 

B 

18.0, 

0.04, 

5. 0,  0.052,  1.0,  0.0  / 

BLKDT 151 

DATA 

EGDA21 

/ 

18.05, 

15. 05, 

2.45,  0.38,  1.0,  0.0, 

BLKDT152 

A 

3.04, 

0.  29, 

6.39,  0.63,  1.0,  0.0, 

BLKDT153 

n 

1 .56  , 

0.  18, 

11.66,  0.71,  1.0,  0.0, 

BLKDT 1 54 

B 

1.56. 

0.18, 

11.66,  0.71,  1.0,  0.0  / 

BLKDT 155 

DATA 

EGDA22 

/ 

66.73, 

22.  98, 

2.95,  0.021,  1.0,  0.0, 

BLKDT156 

A 

38.50, 

12.90, 

3.75,  0.016,  1.0,  0.0, 

BLKDT 1 57 

M 

0.59, 

0.  18, 

28.52,  0.009,  1.0,  0.0, 

BLKDT 1 58 

B 

0.50, 

0.  10, 

40.00,  0.085,  1.0,  0.0  / 

BLKDT 159 

DATA 

EGDA  23 

/ 

70.91 , 

9.85, 

1.49,  0.026,  1.0,  0.0, 

BLKDT160 

A 

14.80, 

0.32, 

3.09,  0.158,  1.0,  0.0, 

BLKDT 16 1 

H 

3.88  , 

0.09  , 

4.71,  0.167,  1.0,  0.0, 

PLKDT1 62 

B 

3.88, 

0.09, 

4.71,  0.167,  1.0,  0.0  / 

BLKDT  16  3 

DATA 

EGDA24 

/ 

127.17, 

19.50 

, 1.53,  0.729,  1.0,  0.0, 

BLKDT164 

A 

49.08, 

1.29 

, 2.67,  0.017,  1.0,  0.0, 

BLKDT165 

M 

31.32, 

0.50 

, 3.60,  0.020,  1.0,  0.0, 

BLKDT1 66 

B 

31.  32, 

0.50 

, 3.60,  0.020,  1.0,  0.0  / 

BLKDT  167 

DATA 

EGDA25 

/ 

50.0,  9. 

6,  2.0, 

0.6, 

1.0, 

0.0, 

BLKDT 168 

A 

6.6,  1. 

4.  2.7, 

2.7, 

1 . 0, 

0.0, 

BLKDT 16  9 

(1 

1.2,  0. 

6 , 4.3, 

2.5, 

1. 0, 

0.0, 

BLKDT170 

B 

1.2,  0. 

6.  4.3, 

2.5, 

1.0, 

0.0  / 

BLKDT171 

DATA 

EGDA26 

/ 

742.50 , 

191.40, 

1.02, 

60.  0, 

0.  6, 

0.0, 

BLKDT172 

A 

691. 66, 

9.46, 

9.37, 

40.0, 

0.6, 

0.0, 

BLKDT173 

n 

1 155.80, 

20.40, 

1.  11, 

20.  0, 

0.6, 

0.0, 

PLKDT174 

B 

1155.80, 

20.40, 

1.11, 

20.0, 

0.6, 

0.0  / 

BLKDT175 

DATA 

EGDA27 

/ 

742.50, 

191.40, 

1.02, 

60.0, 

0.6, 

0.0, 

BLKDT176 

A 

691.66, 

9.46, 

9.37, 

40.0, 

0.6, 

0.0, 

BLKDT177 

H 

1155.80, 

20.40, 

1.11, 

20.  0, 

0.6, 

0.0, 

BLKDT178 

B 

1155. 80, 

20.40, 

1.11, 

20.  0, 

0.6, 

0.0  / 

BLKDT  179 

BLKDT180 

DATA 

PPENFC 

/ 

0.5,  1.0, 

5.0,  45. 

0,  0.5, 

1.0, 

5.0,  45 

.0,  0.4, 

BLKDT18 1 

. 2*0.5,  0.6,  2*272.0,  2*320.0,  0.19,  0.18,  0.2«,  0.0,  0.23,  0.0,  BLKDT182 

2 0.15,  0.5,  1.5,  10.0,  0.015,  2*0.1,  1.25,  0.25,  3*0.35,  BLKDT183 

. 2*640.0,  2*128.0,  0.48,  0.45,  0.09b,  0.0,  0.081,  0.0,  BLKDT184 

3 9.0,  7.5,  3.0,  1.5,  13.8,  4.6,  11.5,  2.3,  12.6,  2*7.2,  1.5,  PLKDT185 
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6250.0,  2810.0,  1600.0,  800.0,  1.45,  1.35,  1.2,  .72,  1.12,  .72,  BLKDT186 

4 8.0,  6.5,  1.0,  10.0,  8.5,  2*1.0,  5.0,  40.36,  41.67,  42.14,  ELKDT187 

. 310.0,  4*160.0,  0.22,  0.2,  0.23,  0.0,  0.22,  0.0,  BLKDT188 

5 4*19.0,  3*19.19,  18.32,  2*19.19,  ^*17.19,  BLKDT189 

. 4*17143.0,  3*0.00005,  0.0,  0.00005,  0.0,  BLKDT190 

3 22*0.0  / BLKDT191 

BLKDT192 

DATA  ENGNO  / 4,  2*8,  2*2,  1,  2,  4*1,  4*2,  1,  2*2,  4,  2,  4*4,  2,  BLKDT193 

. 2*4,  2*2,  1,  3*2,  2*1,  2*2,  8,  1,  3*2,  2*4,  5*0,  2,  BLKDT194 


2 

2. 

2*4,  7*1,  8*1, 

2 , 1. 

4*2,  1. 

BLKDT195 

- 

2*2 

, 10*1 

, 4,  4*1 

, 2*2, 

5*0,  1 

/ 

BLKDT196 

BLKDT197 

DATA 

A PS  P D 1 

/ o.o. 

329.2, 

329.2, 

463 . 0, 

463.0, 

420.6, 

438.9, 

BLKDT198 

402.3, 

471.8, 

462.  7, 

402. 3, 

438. 9, 

546.7, 

457. 2, 

556. 0, 

BLKDT199 

457.2, 

0.0, 

256.0, 

329.2, 

310.9, 

292.6, 

329.2, 

329.2, 

BLKDT200 

349.3, 

219.4, 

274.3, 

274.3. 

276.1, 

276.  1, 

329. 2, 

256.0, 

BLKDT20 1 

548.7, 

420.6, 

200.0, 

219.4, 

219.4, 

274.3, 

329.2, 

471.8, 

BLKDT202 

438.9, 

457.2, 

457.2, 

329. 2. 

292.6, 

5*0.0, 

438.9 

/ 

BLKDT203 

BLKDT204 

DATA 

APSPD2 

/ o.o. 

31 0.9, 

310. 9, 

333. 0, 

333.0, 

329.0, 

310.9, 

BLKDT205 

329. 2, 

329.2, 

332.8, 

329.2, 

310.9, 

365.8, 

329.2, 

370.6, 

BLKDT206 

310.9, 

0.0, 

219.4, 

259. 7, 

274. 3, 

237.7, 

310.9, 

310. 9, 

BLKDT207 

299.9, 

201.1, 

219.4, 

219.4, 

219.4, 

219.4, 

237.7, 

219.4, 

BLKDT208 

365.8, 

310.9, 

150.0, 

201.1, 

201.  1, 

219. 4, 

310. 9, 

329.2, 

BLKDT209 

310.9, 

329.2, 

329.2, 

259.7, 

237.7, 

5*0.0, 

310.9 

/ 

BLKDT21 0 

BLKDT21 1 

DATA 

ASCNT  1 

/ 0.0, 

5.  0,  5 

.0,  4.0, 

4.0, 

5.0,  6 . 

0,  6.0, 

6.5,  8 

.0, 

BLKDT212 

• 

6.0, 

6.  0,  5 

. 0,  7.0, 

6.5, 

10.,  0. 

0,  5.0, 

4.0,  5 

.0, 

BLKDT21 3 

• 

4.0, 

4.6,  4 

. 6 , 6.0, 

6.0, 

5.0,  5. 

0,  5.0, 

5.0,  6 

.0, 

PLKDT214 

• 

5.0, 

5.0,  6 

.0.  4.0, 

6.0, 

6.0,  6 . 

0,  5.0, 

6.5,  6 

.0, 

BLKDT215 

• 

7.0, 

7.0,  4 

.0,  4.0, 

5*0.0 

, 6.0  / 

BLKPT216 

BLKDT217 


DATA 

ASCNT2  / 0.0, 

5.5, 

5.5,  8 

.0, 

6.0,  7.8, 

6.2,  12.0, 

BLKDT21 8 

9.9,  8.2, 

12.9, 

12.7,  9 

. 1, 

12.0,  11.25, 

10.0,  0.0, 

BLKDT219 

6.1,  11.2, 

11.4, 

10.0,  5 

• 2 , 

5.2,  11.3, 

6.0,  8. 6, 

BLKDT220 

10.3,  7.0, 

7.0, 

6.3,  6 

.0, 

9.1,  7.5, 

6.0,  6.0, 

PLKDT22 1 

6.0,  9.0, 

5*0.0,  12.7 

5.5, 

/ 

9.9,  12 

.7, 

12.0,  12.0, 

11.2,  10.0, 

BLKDT222 
BLKDT22  3 
BLKDT224 

DATA 

APPHT2  / 0.0, 

0.  22, 

0.22,  0. 

16, 

0.16,  0.18, 

0.21,  0.22, 

BLKDT225 

0.13,  0.12, 

0.  22, 

0.20,  0. 

07, 

0.15,  0.20, 

0.17,  0.00, 

BLKDT226 

0.08,  0.27, 

0.  26, 

0.23,  0. 

18, 

0.18,  0.29, 

0.18,  0.21, 

PLKDT227 

0.21  , 0.21, 

0.  21, 

0.29,  0. 

06  , 

0.06,  0. 13, 

0.40,  0.17, 

BLKDT228 

0.17,  0.21, 
5*0.0,  0.20 

0.  22, 

/ 

0.13,  0. 

20, 

0.15,  0.15, 

0.27,  0.23, 

BLKDT229 
BLKDT230 
BLKDT23 1 

DATA 

DSC NT 1 / 0.0, 

2.  5, 

2.5,  8.0, 

8. 

0,  3.5,  4.0, 

3.5,  4.0,  4.0, 

PIKPT232 

3.  5, 

3.  5, 

3.0,  3.5, 

5 . 

0,  3.5,  0.0, 

5.5,  3.0,  3.0, 

BLKDT233 

3.5, 

2.  5, 

2.5,  3.5, 

4. 

0,  3.5,  3.5, 

3.5,  3.5,  4.0, 

BLKDT234 

5.6, 

3.5, 

3.  0, 
3.  5, 

4.3,  10., 
3.0,  3.5, 

4.0,  4.0,  3.5, 
5*0.0,  3.5  / 

2.5,  6.0,  3.5, 

BLKDT235 

BLKDT236 

BLKDT237 

DATA 

DSCNT2  / 0.0, 

2.  5, 

2.5,  2.5, 

2. 

5,  3.0,  3.5, 

3.5,  3.5,  2.5, 

BLKDT238 

3.5, 

3.4, 

2.5,  2.5, 

3. 

4,  3.0,  0.0, 

2.5,  2.5,  2.5, 

BIKDT239 

2.5, 

2.  5, 

2.5,  2.5, 

2. 

5,  2.5,  2.5, 

2.5,  2.5,  3.0, 

ELKDT240 

2.5, 

2.5, 

2.  5, 

2.  5, 

3.0,  3.0, 
2.5,  2.5, 

2 • 5 y 2 • 5y  2 • 5y 
5*0. 0,  3.U  / 

2.5,  3.5,  3.4, 

BLKDT24 1 
BLKDT242 

BLKPT243 


DATA  COHT1  / 0.0, 

0.33, 

0.33, 

0.60, 

0.6  0, 

0.32, 

0.47, 

0.30, 

BLKDT244 

0.36,  0.52, 

0.30, 

0.30, 

0.  16, 

0.34, 

0.30, 

0.91, 

0.00, 

BLKDT245 

0.20,  0.18, 

0.27, 

0.20, 

0.30, 

0.30, 

0.25, 

0.10, 

0.25  , 

BLKDT246 

0.22,  0.21, 

0.25, 

0.23, 

0.20, 

0.  18, 

0.  30, 

0.50, 

0.17, 

BLKDT247 
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0.17, 

0.27, 

0.33,  0 

.36,  0.30,  0.34,  0.34,  0.18,  0.20, 

BLKDT248 

• 

5*0.0. 

0.30  / 

BLKDT249 

c 

DATA 

LNDSPD 

/ 0.0, 

296.0, 

296.  0,  203.0, 

203.0,  278.0,  278.0, 

BLKDT250 
BLKDT25 1 

296.0, 

114.0, 

332.0, 

296.0,  287.0, 

239.0,  258.0,  287.0, 

BLKDT252 

241.0, 

167.0, 

166.0, 

227.0,  212.0, 

185.0,  296.0,  296.0, 

BLKDT253 

240. 0, 

126.0, 

166.0, 

166.0,  166.0, 

166.0,  185.0,  148.0, 

BLKDT254 

240.0, 

203.0, 

111.0, 

111.0,  111.0, 

111.0,  166.0,  296.0, 

ELKDT255 

314.0, 

297.0, 

258.0, 

227.0,  185.0, 

5*0.0,  287.0  / 

BLKDT256 

c 

DATA 

COSPD1 

/ 0.0, 

369.0, 

369.0,  582.0, 

582.0,  450.0,  585.0, 

BLKDT257 

BLKDT258 

549.0, 

392.0, 

554.0, 

554.  C,  554.0, 

556.0,  554.0,  648.6, 

BLKDT259 

463.0, 

0.0, 

366.0, 

399.0,  349.0, 

300.0,  331.0,  331.0, 

BLKDT260 

463. 0, 

210.0, 

256.0, 

256.0,  250.  0, 

250.0,  300.0,  366.0, 

BLKDT26  1 

556. 0, 

349.0, 

150.0, 

201.0,  201.0, 

329.0,  369.0,  592.0, 

BLKDT262 

554. 0, 

'554.0, 

554.0, 

399.0,  300.0, 

5*0.0,  554.0  / 

BLKDT263 

c 

DATA 

COSPD2 

/ o.o. 

558.0, 

558.0,  582.0, 

582.0,  499.0,  658.0, 

BLKDT264 

BLKDT265 

549. 0, 

558.0, 

554.0, 

554.0,  554.0, 

556.0,  554.0,  640.0, 

BLKDT266 

463.0, 

0.0, 

439.0, 

499.0,  450.0, 

400.0,  481.0,  481.0, 

BLKPT267 

554. 0, 

219.0, 

402.0, 

402.0,  377.0, 

342.0,  450.0,  457.0, 

BLKDT268 

556.  0, 

450.0, 

200.0, 

219.0,  219.0, 

439.0,  556.0,  658.0, 

BLKDT269 

554.0, 

554.0, 

554.0, 

499.0,  400.0, 

5*0.0,  554. 0 / 

PLKDT270 

c 

DATA 

TOSPD 

/ 0.0, 

267.0, 

267.0,  212.0, 

212.0,  296.0,  314.0, 

BLKDT27 1 
BLKDT272 

314.0, 

365.0, 

342.0, 

296.0,  314.0, 

287.0,  283.0,  314.0, 

BLKDT273 

263.0, 

0.  0, 

185.0, 

234.0,  260.0, 

194.0,  305.0,  305.0, 

BLKDT27  4 

250.0, 

128.0, 

183.0, 

183.0,  170.0, 

185.0,  223.0,  168.0, 

BLKDT275 

287.0, 

223.0, 

129.0, 

129.0,  129.0, 

190.0,  267.0,  366.0, 

BLKDT276 

314.0, 

283.0, 

283.0, 

234.0,  194.0, 

5*0.0,  314.0  / 

BLKDT277 

c 

DATA 

SKTUPT 

/ 0.0, 

20.0, 

20.0,  10.0,  10 

.0,  6.1,  6.1,  8.0, 

BLKDT278 

BLKDT279 

5.0 

, 6.1, 

8.0, 

6.4,  5.0,  6 

.2,  7.5,  15.0,  0.0, 

BLKDT280 

8.0 

, 3.0, 

3.2, 

2.8,  20.0,  20 

.0,  2.0,  7.0,  15.0, 

BLKDT28 1 

15.0 

, 3.2, 

2.5, 

2.5,  3.8,  5 

.2,  2.3,  8.0,  10.0, 

BLKDT282 

20.0 

. 15.0, 

20.0, 

5.0,  6.4,  6 

.2,  6.2,  3.0,  2.8, 

BLKDT283 

5*0.0 

, 6.4 

/ 

BLKDT284 

c 

DATA 

EGCHKT 

/ 0.0, 

4.  5.  4 

.5,  0.1,  0.1, 

0.6,  2.0,  2.0, 

ELKDT285 

ELKDT286 

1 

0. 

8 , 0.8, 

2.0,  0 

.8,  0.75,  1.4, 

.125,  2.0,  0.0, 

BLKDT287 

1 

2. 

0,  0.1, 

0.  1,  0 

.1,  2.5,  2.5, 

0.1,  3.0,  3.0, 

BLKDT298 

1 

3. 

0.  0.1, 

0.  1,  0 

.3,  0.5,  0.3, 

0.1,  2.0,  2.0, 

BLKDT289 

1 

2. 

0,  2.0, 

4.5,  0 

.8,  0.8,  1.4, 

1.4,  0.1,  0.1, 

BLKDT290 

1 

5*0. 

0,  0.8 

/ 

BLKDT291 

c 

DATA 

SHTDNT 

/ 0.0, 

4.8,4 

.8,  0.5,  0.5, 

1.0,  2.0,  2.0,  0.5,  0.8, 

BLKDT292 

BLKDT293 

• 

2.0, 

0.  4,  . 

66,  1.3,  .25, 

3.0,  0.0,  2.0,  2.0,  0.3, 

BLKDT294 

• 

0.7, 

4.5,  4 

.5,  7.3,  7.0, 

2.0,  2.0,  0.3,  0.5,  0.4, 

ELKDT295 

• 

0.6, 

0.7,  0 

.3,  2.0,  2.0, 

2.0,  2.0,  4.8,  0.5,  0.4, 

BLKDT296 

• 

1.3, 

1.3,  2 

.0,  0.7,  5*0.0 

, 0.4  / 

BLKDT297 

c 

BLKDT298 

DATA 

TOUT  / 

0.0,  340.0,  340.0,  45.0, 

45.0,  36.0,  45.0, 

BLKDT299 

30.0, 

20.  0, 

45.  0, 

35.0,  50.0, 

18.0,  75.0,  42.0, 

BLKDT300 

30.0, 

0.0, 

11.0,  520.0,  84.0,  100.0,  220.0,  220.0, 

BLKDT30 1 

220.0, 

24.0, 

50.  0, 

50.0,  50.0, 

50.0,  14.0,  6.0, 

BLKDT302 

12.0, 

14.0, 

4.5, 

4.5,  4.5, 

11.0,  340.0,  20.0, 

BLKDT303 

50.0, 

75.0, 

75. C,  520.0,  100.0,  5*0.0,  50.0/ 

BLKDT304 

c 

DATA 

TXISPD 

/ 0.0, 

12.0, 

12.0,  27.0,  27 

.0,  9.9,  34.0,  34.0, 

BLKDT305 

BLKDT306 

• 

9.2 

, 12.0, 

34  .0, 

37.0,  25.0,  12 

.9,  37.1,  37.0,  0.0, 

BLKDT307 

• 

22.0 

, 15.9, 

32.5, 

42.0,  13.3,  13 

.3,  24.8,  35.0,  27.0, 

BLKDT308 

• 

27.0 

, 23.6, 

17.1, 

34.2,  22.3,  21 

.8,  37.5,  27.0,  27.0, 

BLKDT309 
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27.0 

5*0.0 

9 

9 

34.0,  12.0, 
37.0  / 

9.2,  37.0, 

12.9,  12.9, 

15.9,  42.0, 

BLKDT31 0 
BLKDT31 1 
BLKDT312 

DATA  EGNAHE 

/ 

8HJ  79-G15, 

8HJ57-P21B, 

8HJ  52 

8HTFJ3-P3  , 

BLKDT31 3 

. 8HTF30-P7 

9 

8HJ  85  , 

8HJ  75  , 

8HTF39  , 

8 HT  56-A7  , 

BLKDT3 1 4 

. 8HT  76 

9 

8H0470  , 

8H0360 

8HJ  57-P43, 

8HJ  £9  , 

BLKDT315 

. 8H J 79-G17, 

8HTF30-P9  , 

8HT  34  , 

8HTF4  1 , 

8HF100  , 

BLKDT316 

. 8HF101 

9 

8 HT  56- A 15, 

8HTF39  LS  , 

8HJ60  , 

8HJ-33  , 

BLKDT3 17 

. 8HJT-8D 

9 

8HR-4360  , 

8HR-3350  , 

23*8HUN ASSGND  / 

BLKDT31 8 
BLKDT319 

DATA  ACNAUB 

/ 

8HB-1  , 

3HB  52 

8 HB  52  H , 

8 HB  57A-3C, 

BLKDT320 

. 8HB  57  E- 

G, 

8 HF  100  , 

8HF  101  , 

8 HF  102 

8 HF  104A  , 

BLKDT32 1 

. 8HF  105 

9 

SHF  106  , 

8HF  4 , 

SHF  5 , 

8HF  1 1 1 A , 

BLKDT322 

. 8HF  15 

9 

8HA  7 , 

8HA  10  , 

6 HA  37  , 

8HC  5 , 

BLKDT323 

. 8HC  9 

9 

8 HC  130  , 

8HKC  135A  . 

8HC  1 35B  , 

6HC  141 

BLKDT324 

. 8HC  7 

9 

8HC  121  , 

9HC  97 

8HC119  , 

8HU  N ASSGND , 

BLKDT325 

. 8HT  33 

9 

8 HT  37  , 

8HT  38 

8HT  39  , 

8HT  41  , 

BLKDT326 

. 8HO  1 

9 

8HO  2 , 

8HOV10  , 

8HB-52G  , 

8HF164C  , 

BLKDT327 

. SHF  4 E 
. 8HHDM 

DATA  EHFCIN 

2 

3 

4 

5 

6 

, 8HF111D  , 8HF111F  , 8HC-5  LS  , 

, 4 *8HU  NA  SSIG  N , 8HTRANSENT  / 

/ 0.0,  100.0,  12.  5,  50.0,  6 .25, 

0.0,  25.0,  10.  0,  12.5,  5.0  , 

1.5,  1.0,  1.5,  0.5,  0.75, 

5.0,  15.5,  4.0,  7.5,  2.0  , 

0.0,  0.75,  0.75,  0.35,  0.35, 

5*0.0  / 

8HC130  H 

BLKDT328 
BLKDT329 
BLKDT330 
BLKDT33 1 
BLKDT332 
BLKDT33  3 
BLKDT334 
BLKDT335 
BLKDT336 
BLKDT337 

DATA  LOEHFC 

/ 

130.0,  72.0 

, 26.0,  11.0 

1.0,  0.0, 

14.0,  15.0, 

0.0, 

PLKDT339 

2 

21.0,  12.0 

, 4.7,  1.8 

.17,  0.0, 

2.4,  23.0, 

0.0, 

BLKDT339 

3 

17.0,  5.9 

, 1.9,  0.76 

.07,  0.0, 

1.0,  4.0, 

0.  0, 

BLKDT340 

4 

8.3,  4.3 

, 0.4,  0.16 

.03,  0.0, 

0.2,  4.7, 

0.0, 

BLKDT34 1 

5 

6 

56.0,  6.8 

9*0.0  / 

, 0.5,  0.16 

.03,  0.0, 

0.3,  1.4, 

0.0, 

BLKDT342 
BLKDT34  3 
BLKDT344 

DATA  IDACEG 

1 

2 

3 

4 

/ 

20,  2,  4, 

7,  1,  6, 

9,  13,  4, 

14.  6,  23, 

16,  16,  22, 

6,  4,  2, 

5,  19,  18, 
4,  9,  27, 

12,  11,  12, 

21,  50,  50, 

2,  2,  1, 
17,  6,  8, 

26,  27,  50, 
10,  13,  15, 

50,  50,  50, 

7, 

2 5, 

24, 

15, 

1 / 

BLKDT345 
BLKDT346 
BLKDT347 
BLKDT348 
BLKDT 349 
BLKDT350 

DATA  I AC ABF 

/ 

2*1,  0,  1, 
7*0,  1 / 

0,  10*1,  14*0,  1,  0,  1, 

6*0,  4*1, 

BLKDT35 1 
BLKDT352 
BLKDT 35  3 

DATA  IDRR 

/ 12,  2,  3,  4,  5, 

6,  7,  8 

, 9,  10 

9 

BLKDT354 

1 

11,  12,  13,  14,  15, 

16,  17,  18 

, 19,  20 

9 

BLKDT355 

2 

21  , 22,  23,  24,  25, 

26,  27,  28 

. 29,  30 

9 

BLKDT356 

3 

31,  32,  33,  34,  35, 

36,  37,  2 

, 9,  12 

9 

BLKDT 357 

4 

14,  14,  19,  21,  5*100,  12  / 

BLKDT358 

FLKDT359 

DATA  EGFF 

/ 

1.  131, 

2.72  , 

8.921, 

32.238, 

BLKDT360 

2 

1.051, 

2.500,  7.752,  36.100, 

0.830, 

4.860, 

6.490, 

6 .490, 

BLKDT 36 1 

4 

0.846, 

3.797,  9.979,  9.979, 

1.250, 

6.650, 

7. 120, 

38.400, 

BLKDT362 

6 

0.453, 

1.462,  2.630,  8.323, 

1.700, 

1 1.300, 

13.2C0, 

53.700, 

BLKDT363 

8 

1.134, 

1 .500,  1 1 .909,  1 1.  41  , 

0.693, 

0.827, 

1.967, 

2.079, 

BLKDT364 

0 

0.192, 

0.347,  0.387,  0.387, 

.01512, 

. 08555, 

. 13125, 

.13125, 

BLKDT365 

2 

.01517, 

.06788,  0.0887,  0.0887, 

1.214, 

1.  849, 

10. 612, 

10.612, 

BLKDT366 

4 

0.231, 

0.698,  1.095,  1.907, 

1.06  , 

3.34  , 

9.82  , 

34.95  , 

BLKDT367 

6 

1.25  , 

6.65  , 7.12  , 42.85  , 

0.373, 

1.215, 

3. 275, 

3.275, 

BI.KDT369 

8 

1.07  , 

5.31  , 9.04  , 9.04  , 

1.06  , 

3.0  , 

10.0<'  , 

44.2  , 

BLKDT 369 

0 

0.0  , 

0.0  , 0.0  , 0.0  , 

0.493, 

1. 145, 

2.  392, 

2.392, 

BLKDT370 

2 

1.134, 

1.5  , 11.909,  11.41  , 

0.459, 

1.423, 

2.456, 

2.456, 

BLKDT37 1 
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1 


c 


c 


c 


c 


c 


c 


4 1.2  , 4.95  , 

6 .1403,  0.7039, 

8 92*0.0  / 


0.525,  5.525, 

1.218,  .13125, 


0.959,  7.37 

.1078,  0.61 


8.755,  8.755, 

.9362,  .13125, 


DATA  NONAM1 
. 8HCLIMB  1 
. 8 H 


/ 8HIDLE 
, 8HCLIMB  2 
/ 


, 8HTAXI  , 
, 8HAPPEOACH, 


8HEN3INE  C, 
8HAPPLOACH, 


6HRUNWAY  R, 
8HLANDING  , 


DATA  MONAH2  / 4H  , 4H  , 4HHECK , 4H0LL  , 4H  , 4H  , 
4H  1 , 4H  2 , 4H  , 4H  / 

DATA  APFH  T, CLMBHT  / 2*  0.9144  / 

DATA  ACLNDY  / 20.0  /,  ACLNDZ,  EGCKDZ,  AFDSDZ  / 3*8.0  / 

DATA  EGCKDY,  ACHLPL  / 2*100.0  / 

DATA  I EGA  BF  / 2*1,  2*0,  3*1,  7*0,  2*1,  2*0,  2*1,  7*0,  23*1  / 
DATA  THNAME  / 8HIDLE  , 8HNORMAL  , 8HMILITAFY,  8H AFTER  BR  / 


DATA  FLNANE  / 4HAN  G,  4HJP  4,  4HAC  G,  4HDESL,  4HJP  5,  4HJP  8, 
4HJETA  / 

DATA  ALPHA  / 11.70365,  11.10675,  12.42362,  12.68789,  13.687, 

13.038,  13.024  / 

DATA  BETA  / 2868.54,  3129.5187,  3276.8848,  5108.4194,  5329.139, 

4789.301  , 4782.209  / 

DATA  FLDENS  / 0.695,  0.773,  0.693,  0.842,  0.824,  0.807,  0.807  / 

DATA  ATDSDY  / 10.0  /,  ATDSDZ  / 2.0  /,  NPLTS  / 5 /,  ITAPE  / 21  / 

DATA  FIXFCT  / 0.024,  0.023,  0.0235,  0.019,  0.021,  0.020,  0.20  / 

DATA  FLTFCT  / 1.0,  0.96,  0.98,  0.79,  0.89,  0.83,  0.83  / 

DATA  HR KFCT  / 0.3,  0.  324,  0.  312,  0.276,  0.3  1,  0.  295,  0.295  / 

DATA  FPDFLT  / 1.2  /,  TDDFLT  / 1.0  /,  RFDFLT  / 0. 1 / 

DATA  RUDSDF , KUTSDF,  RUVSDF,  TFHBDF,  TFHODF  / 5*0.0  / 

DATA  RUH3DF,  FUHODP,  RUDY  DF,  RUDZDF  / 4*5.0  / 

DATA  TCDSDF  / 9.0  /,  TCTSDF  / 422.0  /,  TCVSDF  / 12.5  / 

DATA  TCHBDF,  TCHODF , TCDYDF,  TCDZDF  / 4*10.0  / 

DATA  TFEfIFC  / 560.,  320.,  4.  15,  128.,  2*1.0  / 

DATA  SFDFLT,  PFDFLT , TFDFLT  / 3*1.0  / 

DATA  TFQDF  / 25000.0  /,  TFDZDF , TFDYDF  / 2*30.0  / 

DATA  PLNAME  / 4HC0  , 4 HHC  , 4HN0X  , 4 HP  M , 4HSOX  , 4H  / 

DATA  TOTEM  / 120*0.0  /,  TOTEVP  / 10*0.0  / 

DATA  MINUS  / 6*8H / 

END 


BLK  DT  39  2 
BLKDT37  3 
BLKDT374 
BLKDT375 
BLKDT376 
BLKDT377 
BLKDT378 
BLKDT379 
BLKDT380 
BLKDT38  1 
BLKDT382 
BLKDT383 
BLKDT384 
BLKDT385 
BLKDT386 
BLKDT387 
BLKDT388 
BLKDT389 
BLKDT390 
BLKDT39  1 
BLKDT392 
BLKDT393 
BLKDT394 
BLKDT395 
ELK  DT396 
BLKDT397 
BLKDT398 
BLKDT399 
BLKDT400 
BLKDT40 1 
BLKDT402 
BLKDT40  3 
BLKDT404 
BLKDT405 
BLKDT406 
BLKDT407 
FLKDT408 
BLKDT409 
BLKDT4 1 0 
BLKDT41 1 
BLKDT41 2 
BLKDT4 1 3 
BLKDT414 
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SUBROUT  ini;  cuarac 


Purpose: 


To  print  single  characters  in  a title  as  a 9 x 12  matrix. 


Input: 

The  title  line  to  be  printed.  A maximum  of  12  characters 
is  allowed. 

Output : 

The  title  line  in  large  print. 


Procedure : 


This  routine  masks  the  characters  using  hexadecimal  numbers 
as  required  on  an  IBM  systems/360.  A similar  routine  exists 
for  the  CDC  7600. 


Subroutines 

Called: 


None 
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SUBROUTINE  CUARAC  (ITITLE) 


63 


c 

c 

c 

c 

c 


SUBFOUTINE  CHARAC(LTITLE) 

THIS  FCUTLNE  h AS  kiR  ITT  EN  FOF  THE  IBM  SXSTEMS/360  TO 
IRIN1  SI  NS  LE  CHARACTERS  AS  A 9 BI  12  MATRIX.  A SIMILAR 
ROUTINE  EXISTS  FOR  THE  CDC  7600. 

DIMENSION  ICHAE  (12 ,37 ) , I ALPHA (37)  , ID(  1*) , II ITL E ( 1 2)  ,MASK(1  1)  , 

. LINE1  (132) 

INTEGER  OEFSET 

DIMENSION  L ETTER (12,2 t)  ,NUMBEP(12,11) 

EQUIVALENCE  (I  CH  AR  ( 1 , 1 ) , L ETT  ER  ( 1 , 1)  ) , ( ICH  AR  ( 1 , 2 7)  , N UM  B EE  ( 1 , 1 ) ) 

DATA  LETTER  /Z070,ZOFB,Z18C,3*Z306,2*23FE,4*Z306, 

B Z3Fb,Z3FC,3*Z306,2*Z3FC,3*ZJ0b,Z3FC,Z3F8, 

C Z0FE,Z1FE,Z38C,6*Z30C,Z380,Z1FE,Z0IF.  , 

D Z3Fb,Z3FC,Z30E,6*Z306,Z30E,Z3FC,Z3F8, 

E, F 2*Z3FE,3*Z300,2*Z3FE,3*Z300,2*Z3FE,  ,.*Z  JFE  , 3*  Z300 , 2*  Z3FF,  5*Z 300, 
G , H Z0FE,Z1FE,3*Z300,Z31C,Z33E,3*Z30b,Z1FE,Z0FC,5*Z30o,2*Z3FE,5*Z306 
I,J  2*Z3FE,8*Z070,2*Z3FE,  2*  Z07  E , 6*  Z 0 Id  , z*z  3 18  , Z 3Fb,  Z 1 F0. 

K Z30t,230E,Z318,z330,Z3b0,2*23Z0,Z3o0,Z330,Z318,Z30E,Z30t, 

L, M 1 0*Z3  00 , 2 * Z3  F E , Z306  , Z38 E ,Z 3 Dt, 2 37 6, Z 326 , 6* Z 3 06, 

N z*Z306,Z386,Z3C6,2*Z36o,2*Zj3b,ZJlE,Z30E,2*Z3u6, 

O,  F Z 1FC,Z3FE, 8*Z3Cb, Z3FE,Z1rC , Z3F  8 , Z3F  C , J*  Z3 0b , Z3 FC , Z3 F8 , 5 * 23  00 , 

U ZOFd, Z1 FC,6*Z3  06  , Z33o  ,Z3 1 E,Z 1 FC, ZOFb, 

R Z3F8,Z3FC, 3*Z306,Z3FC,Z3FP,Z330,Z31b,Z30C,2*Z306, 

S,1  ZOFE  ,Z1FE,3*Z3  00,Z1I 8,Z0FC,3*Z006,Z3FC,Z3Fb,  2*Z3FE,  10*Z070, 

U,  V 10*Z30o, Z1 FC,Z0F8,  7*Z306,2*  Z18C ,Z0D6, Z070, Z JzO , 
k b*Z306,Z326, 2*Z37b,Z3DE, Z38E,Z30b, 

X 2*  Zj0b,Z18C,2*Z0D8 ,2*Z070,2*ZOD8,Z IbC, z*230b, 

V 2*Z  3 Ob, 2*Z  18C, 2*Z  0D8 , b*Z  07  0, 

Z i*Z3EE,Z006,ZOOC,Z018,Z0  30,Z060,ZOCO,Z18  0,  Z300,z*Z3F E/ 

DATA  NUMEER  /12*0, 

0.  Z0Fb,Z1FC,8*Z30b,Z1FC,Z0F8, 

1 Z030,2070,20FO,7*Z030,2*Z1FE, 

2 Z1F8,Z3FC, Z30C.2* ZOO C,Z0 18, ZO 30, Z060,Z0C0, Z 1bO,Z*Z3FE, 

3 Z1FC, Z3FE, Z306, 2*Z006, 2* Z07C ,2*Z006, Z306 ,Z3FE,Z1FC, 

4 Z0CC,Z01C, Z03  C,Z06C,Z0CC,Z18C,2*Z3FE,4*Z00C, 

5 2*Z3FE,3*Z300,Z3FC,Z3FE,3*Z006,Z3F E, Z 1FC, 

6 Z1FC,Z3FE, 3*Z300,Z3FC,Z3FE,3*Z30c,Z3FE,Z1FC, 

7 2*Z3FE,Z306,3*ZOOC,2*Z018,4*Z030, 

o Z1FC.Z3FE, 3*Z  3 Ob, 2*Z  1FC, 3*Z30o,Z3FE, Z1FC, 

9 Z1EC,Z3FE,3*Z3 06, Z3FE,Z1FE, 3*7006, Z3FE,Z1FC/ 

DATA  IQ  /4HOOOO/ 

DATA  BL  /4H  / 

DATA  EINE1  /132* 1H  / 

DATA  MASK  /Z4  0 0 , Z2  00  , Z 1 00  , Z80 , 24  0 , Z 2 0 , Z 1 0 , z 8,  Z<4  , Z2  , Z 1 / 

DATA  1ALPHA  / 1 H A, 1 H B , 1 HC , 1 HD , 1 HE,  1H F , 1HG , 1H H , 1HI , 1H J , 1 HK , 1 HL  , 

. 1HM,  1KN,  1HO,  1HP,  1HQ,  1HR,lHS,lHT,1HU,1HV,1HW,1HX,1ri¥,1HZ, 

. 1 H , 1H0,1H1  ,1 H2,1 H3,  1 H4 , 1H5, 1 H6,  1H7,  1H8,  1H9/ 

DO  ISO  I J = 1 ,12 
J = 1 3-  IJ 

IF  (ITITLE  (J)  .N E.I ALP  HA (27) ) GO  TO  70 
1 50  CONTINUE 
70  CONTINUE 
NUMLE  T = J 

OFFSFT=(12-NUMLET)  *6 
DC  250  1 J=  1 ,12 
DO  251  JK  = 1 , 37 

IF  (ITITLE(LJ) .NE.I ALPHA (JK) ) GO  TO  251 


CHAFCOOO 
CH  ARC  00 1 
CH AFC002 
CHAFC003 
CHARC004 
CKARC005 
C H ARC 006 
CHAPC007 
CHAPC008 
CH APC009 
CH  A RC  010 
CHAPC01  1 
CH APC012 
CHARC013 
CHAFCO  1 4 
CHARC015 
CHAPC01 b 
, CH  APCO  1 7 
CH ARC018 
CHAFC019 
CHAFC020 
CHARC02  1 
CHARC022 
CH  A RC  02  3 
CHAPC024 
CHAFC025 
CH  A ^ C 02  6 
CHAPC027 
CHARC028 
CH ARC029 
CHARC030 
CHAFC031 
CHAPC032 
CH  A PC  03  3 
CHARCO  34 
CHARC035 
CHARC036 
CHAPC037 
CHARC038 
CHARC039 
CH.  ARC  04  0 
CHAPC04 1 
CHARC042 
CH  A RC  04  3 
CHAPC044 
CH ARC045 
CH  ARC046 
CH ARC  04 7 
CHARC048 
CHAFC049 
CH ARC  05  0 
CHARC051 
CH  AR  COS  2 
CHARC  053 
CHAPC054 
CHAPC055 
CH APC05F 
CH  A FC  05  7 
CHAPC058 
CH  AF  C 059 
CHARC  060 
CHAPC06  1 


04 


1 L ( IU) = JK 

CHARC062 

GC  TO  250 

CH  ARC  063 

251 

1 ONT1NUE 

CHARC064 

245 

It  (LJ) =27 

CH  ARC  06  5 

^50 

CCNTINUL 

CHAPC066 

[ C ^ 000  LNCKr= 1 , U 

CH ARC  06  7 

DO  1000  L to  S • 1,  12 

CHARC068 

I POS=  <1  1*  (LPCS-1 ))  ♦OFFSET 

CHARC069 

lFF=lChAR (LNl NT, ID(LPOS) ) 

CHAPC070 

DC  1200  WAKE'!p=  1,11 

CH  A PC  07  1 

IF  (1PF-MASK  (HAKEJP) .FT.O)  GO  TO  IcOO 

CHARC072 

I PR = IFF -MASK (MAKEUP) 

CHARC073 

liNFI  (ItOS^ MhKEUP) = 10 

CH  A PC  074 

1200 

CCNT 1NUE 

CHAPC075 

1000 

CCNTI NUE 

CH  ARC  076 

PRINT  200,  (LINFI(JO) ,J3=1,132) 

CHAFC077 

200 

F OR  MA  I (132 A1 ) 

CH  A RC  07  8 

DC  10 t I =1,132 

CHAPC074 

1 Cb 

11  Ml  (I ) = E L 

CH  ARC  060 

2000 

CONTINUE 

CHAPC081 

RETURN 

CH ARC  08 2 

END 

CHARC0e3 

SUBROUTINE  EN13MV 


Purpose : 

1.  To  input  environ  source  activity  and  georretric  data. 

2.  To  calculate  annual  emissions  from  environ  point  sources, 
stationary  and  mobile  areas,  land  use  areas , or  combined 
areas,  and  roadway  and  non -roadway  line  sources. 

3.  To  output  to  the  master  source  tape  all  data  needed  to 
define  environ  sources. 


Input: 

Environ  source  activity  and  geometric  '•lata . 


Output : 

Print  all  input  data  which  docs  not  conform  to  the  basic 
input  formats. 


Subroutines 

Called: 


OENEM 


6f> 


SUBROUTINE  ENLM1V 


READ  POINT  SOURCE  ACD  EMISSIONS  DATA  FOR 
EACH  LTV  I RON  1*0 INI  SOURll: . CONVERT  EMISSIONS 
TO  K 1 l.t  XiRXMS/ VLXK  ATD  ACOMJ1ATE  TOTALS. 


CAli,  OE.NEM 


rtkll  i:  HATE  W l III  ALL  POINT  SOURCE  INPUT  ATU 
EMISSION'  RESULTS,  TOGliTlLR  Mill  TYPE  COUNTERS. 


Ri.\i)  AREA  SOURCE  AND 
EMISSIONS  DATA  FOR 
EACH  STATIONARY  AREA. 
CONVERT  EMISSIONS  10 

K I LOGKAMS/  YEAR  AND 
ACCUMUUTE  TOTALS. 

READ  AREA  SOURCE  AND 
EMISSIONS  DXTA  FOR 

EACH  COMBINED  AREA. 
CONVERT  EMISSIONS  TO 

KI  IOGRAMS/YEAR  AND 
ACCUMULATE  TOTALS. 

CALL  OENEM 


CALL  0EN1M 


READ  AREA  SOURCE 
AND  VEHICLE  DATA 
FOR  EACH  MOBILE 
AREA.  CALCULATli 
EMISSION’S  FOR  Al.i. 
POLLUTANTS  .AND 
ACCUMULATE 
TOTALS. 


CALL  OHMAI 


RliAD 

AREA  SOURCE 

AND  IAND  USE 

FRAG1 

ION  DAI  A FOR 

EAQI 

SOURCE.  CAL 

CUE  VI 

L EMISSIONS 

•OR  AL 

.1.  lOLl.UTANTS 

AND 

ACCUMULATE 

TOTALS . 

CALL  OEa’EM 


WRITE  I TAPE  WITH  ALL  AREA  SOURCI 
INPUT  AnD  EMISSIONS  RESULTS, 
TOGEIHER  Will!  TYPE  COUNTERS. 


READ  LINE  SOURCE  AND  VE11ICI.L  DATA  FOR  EACH  ROADWAY. 
CALCULATE  EMISSIONS  F'OR  ALL  POLLUTANTS  AND  ACCUMULATE  TOTALS. 


CALL  OENEM 


0 

1 

? 

READ  LINE  SOURCE  AND  EMISSIONS  DATA  FOR  EAQ1  NON- ROADWAY. 
CONVERT  EMISSIONS  TO  KILOGRAMS/ YEAR  AND  ACCUMULATE  TOTALS. 

69 


ci  n n n 


0 

C 

c 

c 

c 


/-SCEFOOTINF  ENEM1V 

THIS  ROUTINE  READS  THE  ENVIRON  POINT,  AREA  AND  LINE  DATA, 

COMPUTFS  ANNUAL  EMISSIONS  AND  STORES  THE  RESULTS 
ON  THE  MASTER  SOURCE  TAPE 

REAL  LUIMFC 
R E A L*8  MINUS 

COMMON  /POINTr'/  M , N SR  C E3  , N MA  X , N M A XE  , L SRCE  S,  NTOT 
COMMON  /SPACE/  SCR C E ( 2 100 ) ,S OF  EM ( 6,  250) 

COMMON  /ARRAYS/  HC KR K ( 1 0, 5 0)  , HCbfi TH  (5 , 1 00) , HCE V P ( 3 , 50) 

COMMON  /TOTS/  T0TEM(20,6)  ,TOTEVP(10) 

COMMON  /EM  FEE  I / EGEM  FC  (b  , 4 , 50  ) , PL  NA  ME  ( 6)  , PF  EM  FC  ( 22  , 6)  , EMFCIN  (5,  b) 
. TFEMFC(6)  ,LUEMFC(9,b)  .ALPHA  (7)  .BETA  (7)  .FLDENS  (7)  , F LN  AME  (7 ) , 

. AFFMFC  (2  ,6  ,61 , ATE MFC  (2,6 ,6) , CSEMFC(b,6) , AFCSEM (6,6)  , AFSOAK, 

. ATSOAK, AFBRTH, ATBF TH, FLTICT(7) ,F 1XFCT(7) , hRKFCT (7) 

COMMON  /DEFALT/  N PITS  , IT Ap E , M I NU S (o) , 

. ACL N LX, ACL N DO, tC VS DF , TCH E DF , T oriODF , T CDV D F,  TCDi DF , h U DS DF , R UTSDF , 

. F.UVSDF,RUHBDF,RUHODF,RUDYDP,FUDZDF  , TFDZDF , TF QDF , TFH aDF ,T F HO DF, 

. EGOKDY.EGCKDZ, AC  MLPL  , AH DS  DZ , AT  DS  DY  , AT  USDS, TODS LF, 1 CTSD F . FP DFLT , 

. TDEFLT, RFDFLT, SFDFLT , P FD FLT , TF DF LT , TF D YDF 
DIMENSION  ENPTS  < 1 1 , 1 0 0 ) , E N A nS  ( 7,  1 00)  , EN L NS  ( 10  , 20) 

ECU IV  ALENCE  (ENPTS  (1)  ,SORCE  (1  ) ) , (E NA R S ( 1)  ,SORCE(  1)  ) 

, ( E N L N S ( 1)  ,SORCE(1)  ) 

DIMENSION  FRCTLU  (9  ) ,V  M (6)  ,CDSTN(6)  ,S£  DC  (6) 

PRINT  40 

40  FCPMAT  (1H1,  28(/) ,57X,  21HS  ECT10N  11  I,///, 

. 53X,2SHE  NVIcCN  SOURCES/) 

M = 0 

NTOT  = NFLTS+  2 

LATA  SET  34  ENVIrON  r CI NT  SOURCES 

READ  B 6 76 , AE1/34 
6676  FORMAT  (A1) 

READ  1 , NM  AX 

1 FORMAT  (14) 

NMAX  = NO.  OF  ENVIRON  FCINT  SOURCES 

IF  (NMAX.EQ.O)  GO  TO  50 
LSRCES=1 

NSRC  ES  = NSRCES*  NMAX 
1C  = 1 

PRINT  10 

10  FORMAT  (1H1  ,42X,53HI  I I.  A. 

.0  E S) 

DC  20  N=LSRCES,NST<CES 
READ  2, (ENPTS(I.N) ,1=1,11) 

2 FORMAT  (2F4. 0.9F8.2) 

POINT  SOURCE  INPUT 


ENVIRON 


POINT 


SOUR 


ENEMV000 
ENEMVOO 1 
ENEMV002 
ENEMV003 
EN  EM  V 004 
ENEMV005 
ENEMV006 
ENEMV007 
ENEMV008 
ENEMV009 
ENEMV010 
ENEMV01 1 
.ENEMV01 2 
EN  EM V 0 1 3 
ENEHV014 
EN  EM V 0 1 5 
ENEMV016 
ENEMV017 
ENEMV018 
E N E MV  01  9 
ENEMV020 
ENEMV021 
EN  EM  V 02  2 
ENEMV023 
ENEMV024 
ENEMV025 
ENEMV026 
ENEMV027 
ENEMV028 
ENEMV029 
ENEMV030 
ENEMV031 
ENEM V032 
EN  EM  V 03  3 
ENEMV034 
ENEMV035 
ENEMV036 
ENEMV037 
FNEMV038 
ENEMV039 
ENEMV040 
ENEMV04  1 
ENEMV042 
EN  EM  V 04  3 
ENEMV044 
ENEMV045 
ENEMV046 
EN  EM  V 04  7 
ENEMV048 
ENEMV049 
ENEM V050 
EN  EM V 05 1 
E NE  MV  05  2 
ENEMV053 


c 

ENPTS  (1,N) 

= 

ID 

ENEMV054 

c 

ENPTS  (2,N) 

= 

PLMD 

E NE  M V 055 

c 

ENPTS  (3, N) 

= 

X 

(KM) 

ENEHV056 

c 

ENPTS  (4  ,N) 

= 

Y 

(KM) 

ENEM V057 

c 

ENPTS (5, N) 

= 

RO 

<N) 

EN  EM V 058 

c 

ENPTS  (6  , N) 

= 

LY 

(») 

E NE  MV  059 

c 

ENPTS  (7, N) 

= 

DZ 

<") 

ENEMV060 

c 

ENPTS  (8  , N) 

= 

TS 

(DEG.  F) 

ENEMV06  1 
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C ENPTS  (9, N)  = VS  (H/S  ) 

C ENPTS  ( 10,  N)  = DS  ((1) 

C ENPTS  (1  1 , N)  = HE  (H) 

C 

READ  3,SID,  (SOREfl  (I  ,N)  ,1=  3,NTOT) 

3 FORflAT  (F4.0,4X,  9F8.2) 

C 

C EMISSIONS  INPUT  (KGM*  1C**  3/YEAR) 

C 

c scrth  <3, N)  = co 

C SOREH  (4,N)  = HC 

C SCREE  (5, N)  = NOX 

C SOPEH  (6,  N)  = P AFT 

C SCRE  K (7 , N)  = SOX 

C SOPEH (P, N)  = PUL  6 

C 

IF  <SID.NE.ENPTS(1,N)  ) GO  TO  9000 
SCRE  ft  (1  ,N)  =SID 
DO  20  1=  1,  N PLTS 

SCR EH  (1*2  , N) =SOREfl  (I  + 2,N)  * 1000. 

TCTEH  ( IO*H,  I) =TOTEH  (IC*H,I)  ♦ SO  RE  H ( I ♦ 2 , N) 

20  CONTINUE 

CALL  CENEH(IO) 

C 

NIE  N = NPLTS+  1 1 

NPITE ( IT  APE)  NSRCES, NLEN,  ( (ENPTS  (I  ,N)  ,1  = 1,11)  , ( SOREfl (I  , N)  , 

. 1=3,  NTOT)  , N=  1 , NSRCES) 

GC  TO  100 
50  NLE  N = 1 

WRI  TE  (ITAFE)  NSRCES  , NLEN,  ( (ENPTS  (I,  N)  , 1=  1,  NLEN)  , N =1  ,N  SRCES) 

C 

C DATA  SET  35  ENVIRON  AREA  SOURCES 
C 

100  NSRCES=C 

REAL  6676,  AB1234 
R E A I 1, IOPT 
C 

C IOFT  =0  NO  ENVIRON  AREAS 

C IOPT  = 1 STATIONARY  AND/OR  flCtilLt  SOURCES  DEFINED  SEPARATELY 

C IOPT  = 2 LAND  USE  AREAS 

C IOFT  = 3 STATIONARY  AND  HOBILt  SOURCES  COMBINED 

C 

PRINT  76 

76  FORMAT  (1H1 ,44 X,5 1HI  II.  P.  ENVIRON  AREA  SOUR 
. E S) 

PRINT  900,  IOPT 

900  FORMAT (1H-,  52X,  26HENV IRON  APEA  SOURCE  OPTI O N , 1 2 , 5ri  USED) 

IF  (ICIT.EQ.0)  GO  TO  490 
GO  TO  (110, 300,400) , IOPT 
C 

C OPTION  1 NMAX1  = NO.  CE  ENVIRON  STATIONAoY  AREA  SOURCES 
C 

110  REAL  1 , NH  A X 1 

IE  (NHAX1.EQ.0)  GO  TO  200 
LSRCES=1 

N£RCES=NSRCES*NHAX1 

10=2 

PRINT  111 

111  FORMAT  (1H-,  52X,  34HI II . b.1  ENVIRON  STATIONARY  AREAS) 

DC  1*0  N=ISRCES, NSRCES 

filAD  2 , (ENARS  (I  ,N)  ,1=  1 ,7) 

C 


ENEHV062 
ENEHV06  3 
ENEMV064 
EN  EH  V 06  5 
ENEHV066 
ENEHV067 
ENEHV066 
EN  EH  V 06  9 
ENEHV070 
ENEMV071 
EN  EH  V 07  2 
ENEMV073 
ENEHV074 
ENEHV075 
ENESV076 
ENEHV077 
ENEHV078 
ENEMV079 
ENEHVOHO 
ENEHV081 
ENF.HV082 
ENEMV083 
ENEMV084 
ENEHV085 
ENEHV036 
ENEHV087 
E NE  MV  088 
ENEMV089 
EN  EH  V 09  0 
ENEHV091 
ENEHV092 
ENEMV093 
ENEMVC94 
ENEHV095 
ENEMV096 
ENEHV  097 
E NE  H V 098 
E N E MV  09  9 
ENEMV100 
ENEMV1 01 
ENEHV 102 
E N E M V 1 0 3 
ENEHV  104 
EFEMV1 05 
ENEHV  106 
ENEMV107 
ENEHV 1 08 
ENEHV  109 
ENEMV1 10 
ENEHV  1 1 1 
ENEHV1 12 
ENEHV  1 1 3 
ENEKV1  14 
ENFMV11S 
ENEHV  1 16 
ENEHV 1 1 7 
ENFMV  1 1b 
ENFMV 1 1^ 
EN  EM V 1 20 
ENEHV  121 
E N E H V 1 2 2 
ENFMV 123 


r*  n r 


t 

c 

c 

c 

c 

c 

c 

c 

c 

c 


AREA  SOURCE  INPUT 


ENARS  (1, N) 
ENARS  (2  , N ) 
ENARS  (3, N) 
ENARS  (4,  N) 
ENARS  <5,N) 
ENARS  (6, N) 
ENARS  <7,N) 


FLBD 

X (KN) 

Y (KB) 
ZBAR  (B  ) 
L (B) 

UZ  (B) 


IF  (ENARS  (7  ,N)  . IE.  0.0)  EN  ARS  (7  , N)  = AR  DSEZ 
REAL  3, SIC,  (SCREB (I ,N ) ,1= 3, NT OT) 

IF  (S I D . N E . EN  AR  5 ( 1 , N)  ) GO  TO  9000 

SCREH  (1 ,N)=SID 

DO  120  1=1, N PLTS 

SORE  ft  (I*2,N)=30REN(I*2,N)*1000. 

TOTEfl  (IO  + B, I)  =TOTEB  (1 0 *B , I) ♦SOREB (1  + 2 , N) 

UO  CONTINUE 

CALI  CENEB(IO) 

OPTION  1 NBAX2  = NO.  CF  ENVIRON  NOBILE  AREA  SOURCES 

200  READ  1 , NNAX  2 

IF  (NBAX2.EC.0)  GO  TO  450 
LSFCES=NSRCES+ 1 
NSRCES=NSRC£S+NNAX2 
DC  210  J = 4,  NPt-TS 
SR DC  (J) =1 .0 
210  CONTINUE 
I C = 3 

PRINT  201 

201  FOKBAT(1H1,54X,30HIII.  B. 2 ENVIRON  NUEILE  AREAS) 

PRINT  221 

221  FORBAT (1H-,61X, 13 H VEHICLE  IN P U T ,/ 1H 0 , 2 0 X , 5H SPEED , 6 X , 

. 45HTHCUSANDS  OF  BILES  PER  VEHICLE  ^LASS  PEE  YEAh,5X, 

. 38HCCLD  STARTS  PER  VEHICLE  CLASS  PER  YE AR , 3 X , 6 h A N N . HOT  / 

. IK  ,3X,2HID,5X,bHCPTICN,4X,5H(BPH)  ,7X,3H(1),5X,3H(2)  ,5X,3H(3)  , 
. 3H (4)  , 5X, 3H (5) , 5X, 3H  (6) , 6X, 3H  (1)  ,4X, 3H (2)  ,4X,  3H  (3)  , 4X, 3H (4)  ,4X 
. 3H (5)  ,4X,3H  (6)  , 5X, 5H SCAKS) 

DC  260  N=LSRCFS,NSPCES 
READ  2 , (ENARS  (I  , N)  , 1=  1,7) 

IF  (ENARS (7, N) .LE. 0.0)  EN A P S ( 7 , N ) =A TD SDZ 
DC  230  J=1 , 3 
SPDC  <J)  = 1.0 

230  CONTINUE 

READ  2, SID, CLDST, SPEED, (VB (J)  ,J  = 1,b) 

PRINT  232, SID, CLDST, SPEED,  ( V B ( J)  , J=  1, b) 

232  FO PB  AT  ( 1 H , 2X  , F5 . 0,  Fb  . C,  F 1 2. 2 , 3 X , 6F  8 . 2 ) 

IF  (SID. NE. ENARS (1 ,N)  ) GO  TO  9000 
SCREB  (1 , N ) = SI D 

IF  (SPIED. NE. 19.6)  SP DC ( 1 ) = 1 2. 5* (S PEE D** ( -0 . 84 5)  ) 

IF  (SPIED. NE. 19.6)  SP  Do  ( 2)  =7 . 0*  ( SPEED  » * (- 0.  b4  9 ) ) 

IF  (SPEED. NE. 19.6)  SP DC  (3) = 1 . 0 ♦ (S PEED- 19 . 6) * 0 . 0 1 2b2 
K =CL  EST 

IF  (CLDST. NE. 3.0)  GO  TC  240 

REAL  231, SID, (CDSTN (J) ,J=1,6) 

231  FCRBAT  (7F4. 0) 

PRINT  233, (CnSTN(J) ,J=1,6) 


ENENV 124 
E NE  B VI 2 5 
ENEBV 126 
ENENV 1 27 
ENEBV128 
ENEBV  129 
ENEB V130 
ENEBV131 
ENEBV132 
ENEBV 133 
ENEBV  134 
ENEBV135 
ENEBV 136 
ENEB V137 
ENENV 1 38 
ENEBV139 
ENEBV140 
ENENV  14  1 
E NE  B V 1 42 
ENEBV  14  3 
E NE  B V 1 44 
ENEBV145 
ENEBV  146 
ENEBV147 
ENEBV 148 
ENEBV149 
ENEBV 150 
ENEBV151 
ENEBV  152 
ENEBV1 53 
ENEBV 154 
ENEBV  155 
E NE  B V 1 56 
ENEBV  157 
ENEBV158 
ENEBV  159 
5X,ENEBV160 
, ENEBV161 
ENEBV  162 
ENEBV1 63 
ENFBV  164 
ENEB V165 
ENEBV  166 
ENEBV167 
ENEBV  168 
ENEBV  169 
ENEBV1 70 
ENEBV  17  1 
ENEBV172 
ENENV173 
- ENENV174 
ENEBV175 
ENENV 176 
E NE  B V 1 77 
ENEBV  178 
ENEBV179 
ENENV180 
ENEBV 181 
ENEBV182 
EN  EB  V 18  3 
ENEBV1 84 
ENENV  18  5 


72 


n n n o n r> 


1 


GO  TO  9000 


GO  TO  9000 


233  FORMAT  ( 1H*  ,T78 ,6F7 . 1) 
IF  (SIC. NE. ENARS  (1  ,N)  ) 
R F AC  231, SID,  1 SOAK  N 
B=ATSCAK*HSCAKN 

IF  (SIC.NE. ENARS(1,N)  ) 
PEI N 1 234  ,H  SO  AKN 

234  FORMAT  ( 1H  + , T 1 22,  P6 . 0) 

K = 1 


240  DC  ^60  1=1, NP~T3 
SOREM  (1*2  , N ) =0 . 0 
CO  250  J=1, 6 

A = SFDC  (I)  * VH  (.1)  *ATEHFC  (K,  J,I) 

IF  (CLCST.NE. 3. 0)  GO  TO  245 
A=A+CSEMFC ( J,I)  *CDST  N ( J) 

IF  (J.FC.1)  A=  A + E 
SCREM(1*2,N)=SOREM(I  + 2,N)+A*10  00. 

CONTINUE 

TOTEM  (IO+fl,  I)  = TO  TEN  ( IO  + M , I)  + SOREM  (1  + 2 , N) 

CONTI NUE 
CALL  CENEH(IO) 

GO  TO  450 

OPTION  2 NMAX1  = NO.  OF  ENVIRON  LAND  USE  AREAS 
REAL  1 ,NMAX 1 

IF  (NMAX1.E0.0)  GO  TO  490 
LSRCES= 1 
NSRC  ES  = NM  AX  1 
10=4 

PRINT  302 

FORMAT  (1H-,  53X,  32HIII . B.1  ENVIRON  LAND 
48X.41HFEACTIONAL  EREAKDGWN  OF  AREAS  BY 
7HAREA  I D ,6  X , 1 1HCITY  C ENT ER , 6 X , 1 OHU R B AN 

6X,  10HSEMI-FUPAL, 6X, 5HR UR  A L, 6 X , 8HCE METAR Y, 6 X ,4 HPARK , 6 X , 7 

/1h  ) 


245 

250 

260 


300 


302 


USE  A REAS/ 1 H- , 
LAND  USE/1  HO ,6 X , 
AREA.6X,  1 3HSUBUR 


DC  J2  0 N = LSRCES,NSRCES 
READ  2,  (ENARS(I.N)  ,1=1,7} 

READ  301 ,SID,  (FRCTLU  (I) ,1  = 1,8) 

301  FORMAT (F4.0,4X,8F8.7) 

PRINT  303  , SIC,  (FRCTLU  (I) , 1=1, 8) 

303  FORMAT  ( 1H  , F 12. 0,  F 1 4.  2,  F 1 6 .2,  F 18. 2,F  1 7. 2 , F 1 4.2 , 3F  1 2 . 2) 
IF  (SID. NE. ENARS (1 , N) ) GO  TO  9000 
SOREM  (1 , N) =SIT 
AREA= (ENARS (6,N) **2) * 1.0E- 6 
IF  (ENARS  (7,  N)  . LE.  0.0)  ENARS  ( 7 , N ) =ARDSD£ 

DO  320  1 = 1, NPLTS 
SCRE  M (1  + 2 , N) =0.0 
DC  310  J = 1 , 8 

SOREM (1*2, N) = SO REM (1  + 2, N)  ♦LUEHFC  (J,l)  * AREA* FRCTLU  (J)  * 

. 3600.*24.*36S./1000. 

310  CONTINUE 

TOTEM  (IO*M,I)=TCTEM  (I  C*M,  I)  +SOREM  (1  + 2,  N) 

320  CONTINUE 

CALL  CENEH(IO) 

GO  TO  450 

•♦•♦OPTION  3 NMAX1  = NO.  OF  ENVIRON  COMBINED  AREA  SOURCES 


400  READ  1 , N M AX  1 

IF  (NMAX1.EQ.C) 


GO  TO  490 


EN  EH V 1 86 
E NE  M VI  8 7 
ENEMV  188 
ENEMV189 
ENEMV 190 
E NE  H V 19  1 
ENEMV 192 
ENEMV 193 
ENEMV194 
ENEMV 195 
ENEMV196 
ENEMV  197 
ENEMV198 
ENEMV  199 
EN  EM V 200 
ENEMV201 
ENEMV202 
ENEMV203 
ENEMV  204 
ENEMV205 
ENEMV  206 
ENEHV207 
EN  EM V 208 
ENEHV209 
ENEMV  210 
ENEMV  211 
ENEMV212 
ENEMV  213 
ENEMV21  4 
EN  EN  V 2 1 5 
ENEMV216 
ENEMV217 
ENEMV218 
BAN  AREA ,ENEMV21 9 
HAIRPORT  ENEMV  220 
ENEMV221 
ENEMV  22  2 
ENEMV223 
ENEMV  224 
ENEM V225 
ENEMV226 
ENEMV227 
ENEMV228 
ENEMV  229 
ENEMV230 
ENEMV231 
ENEMV232 
ENEMV233 
ENEMV  234 
ENEMV235 
EN  EM V 23  6 
ENEHV237 
ENEMV  238 
ENEMV239 
EN  EM  V 24  0 
ENEMV24 1 
ENEMV242 
ENENV243 
ENEMV244 
ENEMV  245 
ENEMV246 
ENEMV247 


73 


n r>  n r o n 


LSfiCE  S= 1 
NSRCES=NMAX1 
10  = 5 

PRINT  401 

401  FORMAT  (1H-,  53X,  32HIII  . B.1  ENVIRON  COMBINED  AREAS) 

DO  410  N=LSRCES, NSfiCES 
READ  2,  (ENARS  (I #N)  ,1=  1 ,7) 

IF  (ENARS(7,N) .LE.0.0)  EN ARS  (7  ,N)  =ARD SDZ 
READ  3, SID,  (SOREM(I,N)  ,I=3,NTOT) 

IF  (SID. NE. ENARS  (1,N)  ) GO  TO  9000 

SCREM(1,N)  =SI  D 

SOREM  (1  ,N)  =SID 

DO  410  1=1, NPLTS 

SCHEM  (1*2  , N)  = SO  REM  (1  + 2,  N)  *100  0. 

TOTEM  (10 *M, I) =TOTEM  (IO*H,I)*SOREH(I*2,N) 

410  CONTINUE 

CALL  CENEM(IO) 

450  NLEN=NPLTS*7 

WRITE  (IT APE)  NSRCE3,NLEN, I OPT , NM A X 1 , N M A X2 , 

. ( (ENARS  (I  ,N)  ,1  = 1 ,7)  , (SOREM  (1*2,  N)  , 1=1,  NPLTS)  ,N  = 1,  NSfiCES) 

GO  TO  500 

490  N l EN=  1 
NMAX  1 = 0 
NMA  X2  = 0 

WRITE(IIAPE)  NSfiCES, NLEN, IOPT,NMAX1 ,NMAX2,  ( (ENARS  (I , N)  , 

. 1=1, NLEN), N =1, NSfiCES) 


DATA  SET  36  ENVIRON  LINE  SOURCES 

500  NSRCES=0 

READ  8676,  AB1234 

NMA X 1 = NO.  CF  ROADWAY  LINE  SOURCES 

READ  1 , NM AX  1 

IF  (NMAX1.EQ.0)  GO  TO  600 
LSRCES= 1 
NSRCES=NMAX 1 
10  = 6 

PRINT  918 

918  FORMAT  (1H1,  41X, 51HI  II.  C.  ENVIRON 


LINE 


.E  S/  1 H • , 5 2X , 3 1 H 1 1 1 . C.1  ENVIRON  ROADWAY  LINES) 
PRINT  2^ 1 


ENEMV 248 
ENEMV249 
ENEMV250 
E NE  M V 25  1 
ENEMV252 
EN  EM V 25  3 
ENEMV254 
ENEMV255 
ENEM V256 
EN  EM  V2  57 
ENEMV  258 
ENEMV259 
EN  EM  V 26  0 
ENEMV261 
ENEMV262 
EN  EM  V 26  3 
ENEMV264 
ENEMV265 
ENEMV266 
ENEMV  26 7 
S)  ENEMV268 

ENEMV269 
ENEMV270 
ENEMV271 
ENEMV  27 2 
ENEMV273 
ENEMV  274 
ENEMV  275 
ENEMV276 
EN  EM V 277 
ENEMV278 
ENEMV  279 
ENEMV280 
ENEMV28  1 
ENEMV282 
ENEM V283 
ENEMV284 
ENEMV285 
ENFMV 286 
ENEMV287 
EN  EM V 288 
ENEHV289 
S 0 U P C FNEMV290 
EN  EM  V 29  1 
ENEMV292 


DO  510  N=LSRCES, 

NSRCES 

ENEMV 29  3 

REAL  2 , (ENLNS  (I  , 

N)  .1=1,10) 

ENEM V294 

c 

ENEMV295 

c 

LINE  SCURCE 

I NPUT 

ENEMV296 

c 

ENFMV  297 

c 

ENLNS  (1  , N) 

= ID 

ENEMV  298 

c 

ENLNS  (2,N) 

= PL.1D 

ENE  MV299 

c 

ENLNS  (3, N) 

= XI 

(KM) 

ENEMV  300 

c 

ENLNS  (4  , N ) 

= Y 1 

(KM) 

ENEMV301 

c 

ENLNS  (5,N) 

= Z 1 

(M> 

ENEMV 302 

c 

ENLNS  (6,  N) 

= w 

<S) 

ENE  MV  30  3 

c 

ENLNS  (7, N ) 

= DZ 

(FI ) 

ENEM V304 

c 

ENL  N S ( 8,  N ) 

= X 2 

(KM) 

EN  EM V 305 

c 

ENLNS  (9, N) 

= Yi 

(KM) 

ENEHV306 

c 

ENLNS ( 10, N) 

= Z 2 

(H> 

ENEMV  307 

c 

ENEMV308 

IF  ( ENLN S (6 

,N). LE.0.0)  ENLNS(6,N)  =ATDSDY 

ENEMV309 

74 


o n n n n n 


IF  (t NLNS  (7 ,N.  .LE. 0.0)  ENL NS ( 7 , N ) = AID SDZ 
DC  53  C J=  1 , 6 
SFDC(J) =1.0 
530  CCNTI NUE 


hEAD  2 ,SI  D,CLDST,S  PEED,  (VII  (J)  , J=  1,t>) 

PRINT  232, SID, CLDST, SPEED,  (VN (J)  , J=1,6) 

IF  (SI E . NE . ENE N S ( 1 , N)  ) GO  TO  9000 
SORRM  (1 , N)  = SID 

IF  (SPEED. N E.  19.6)  SP DC ( 1 ) =1 2 . 5* ( SPEE D * * (-0 . 64 5) ) 

IF  (SEEED. NE. 19 .6)  SP EC (2) =7 . 0 * (S PEED**  (-0. 64 9) ) 

IF  (SPEED. NE. 19.6)  SP DC (3 ) = 1 . 0 ♦ (S PEED- 19 . 6)  *C . 0 1 262 
K =CLD  ST 

IF  (C1DST.NE.3.0)  GO  TO  540 


BEAD  231 ,SID, (CDSTN(J) ,J=1,6) 
PRINT  233,  (CDSTN  (J)  ,J=1,6) 

IF  (S1D.NE.ENLNS(1,N)  ) GO  TO  9000 
BEAD  231  ,SID,.iSCAKN 
E=ATSOAK*HSOAKN 

IF  (SID. NE. ENAES  (1 ,N)  ) GO  TO  9000 
PFINT  234, H SO AK  N 
K = 1 


540  DC  510  1 = 1 , N PJ. T S 
SOBER  (1*2 , N) =0. 0 
DO  550  J=1, 6 

A = SPDC  (I)  ♦ VM  (.!)  *ATEME  C (K,  J,I) 

IF  (CLDST. NE.  t.O)  GO  TO  545 
A=A+CSENFC ( J,I)  *CDST  N ( J) 

IF  (J.EC-1)  A=  A ♦ E 

54  5 SOB  EH  (1*2, N)  =30 FEN (I+2,N)  + A*1 000. 

550  CONTINUE 

TOTEM  ( 10  *M  , I) =TOTEM (IO+M,I)*SOREM(l*2,N) 
510  CCNTI NUE 

CALL  CENEM(IO) 


DATA  SET  37  ENVIRON  NON-ROADWAY  LINE  SOURCES 


600  READ  8676,  ABI234 


NMAX2  = NO.  OF  NON-ROADWAY  LINE  SOURCES 


READ  1,  NMAX2 
IE  (NHAX2.EQ.0)  GO  TO  650 
LSRCES  = NSPCES-t  1 
NSRCES=NSRCES  NMAX2 
10=7 

PRINT  601 

601  FCBMAT (1H 1 ,50X, 35 Hill.  C.  2 ENVIRON  NON-ROADWAY  LINES) 
DC  610  N=LSRCES,NSRCES 
READ  2,  (ENLNS <I,N)  , 1=  1, 10) 


IE  (ENLNS  (6, N)  .LE. 0. 0)  EN LNS ( 6 ,N ) =A TD SO Y 
IE  (ENINS  (7  ,N)  . LE.  0.0  ) ENLNS  (7  , N)  = AT  DS  hi. 


READ  3, SID,  (SOREM(I,N)  ,I=3,NTOT) 

IF  (SID. NE. ENINS  (1 , N) ) GO  TO  9000 
SOREM  ( 1 , N ) =SIT 

IF  (NPLTS.EQ. 10)  READ  3 ,S I D, S ORE M ( 1 2,  N) 
SCREM(1,N)  = SI  I) 

DO  610  1=1 , NPLTS 


ENEMV310 
ENEMV31 1 
EN  EM V 3 1 2 
ENEMV31 3 
ENEMV  314 
ENEMV315 
ENEMV316 
ENEMV317 
ENEMV318 
ENEMV319 
E NE  MV  320 
ENEMV32 1 
ENEMV  322 
ENEMV323 
ENEMV  324 
ENEMV325 
ENEMV326 
ENEMV  327 
ENEMV328 
EN  EH V 329 
ENEMV330 
ENEMV  33  1 
ENEMV332 
ENEMV333 
ENEMV  334 
ENEMV335 
ENEMV  336 
ENEMV33  7 
ENEHV338 
EN  EM  V 3 39 
ENEHV340 
ENEMV  34  1 
ENEM V342 
ENEMV  34  3 
ENEMV344 
ENEMV  345 
ENEMV346 
ENEMV347 
ENEMV348 
ENEMV  349 
ENEHV350 
EN  EM V 35 1 
ENEMV  352 
ENEM V353 
ENEMV  354 
ENEMV355 
ENEMV  356 
ENEMV  357 
ENEHV358 
ENE  MV  359 
ENEMV360 
EN  EH  V 36  1 
ENEHV362 
ENEMV  36  3 
ENEMV364 
ENEMV365 
ENEMV  366 
ENEHV367 
EN  EH V 368 
ENEHV369 
ENEMV  370 
ENEMV  37  1 


J 


SCR  EM  (I  + 2,N)=SGBEM  (I  + 2,N) *1000. 

ENEMV372 

TOTEM (IO+N, I) =TOTEN (IO+S , I) +SOREN (1+2 , N) 

ENEMV373 

610 

CONTI NUE 

ENEMV379 

650 

CALL  CENEM(IO) 

ENEMV375 

ENEMV376 

IF  (NSFCES. EQ. 0)  GO  TO  690 

ENEMV  377 

NIE  N = NPLTS+  10 

ENEHV378 

WRITE  (IT APE)  N SRCES, N LEN , N MA X 1 , NM A X 2 , 

ENEMV379 

• 

( (ENINS (I,N)  ,1=1, 10) , (SOEEM  (I  + 2,N)  , 1 = 1, NPLTS) ,N  = 1 , NSFCES ) 

ENEMV380 

GC  TC  700 

ENEMV  381 
EN  EM V 382 

690 

NIE  N= 1 

ENE  MV  38  3 

WRITE  (ITAFE)  N SRCES , N LEN , NMAX 1, NMAA2,  ( ( LNLNS  (I,N)  , 

ENEMVJ84 

. 

I = 1 , NL  EN ) , N = 1,  N SEC  ES) 

ENEMV385 

GC  TC  700 

ENEMV386 
ENEMV  387 

9000 

PRINT  9001, SID 

ENEMV388 

9001 

FORMAT  (17H0CONTINUAT1ON  ID  ,F4.0, 

ENEMV389 

. 

35K , DOES  NOT  AGREE  WITH  PREVIOUS  CARu) 

ENEMV390 

STOF 

ENEMV  391 
EN  EM  V 39  2 

7C0 

CONTINUE 

ENEMV393 

RETURN 

ENEMV  39  9 

END 

ENEMV395 
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SUBROUTINE  EVAPHC 


Purpose : 

1.  To  input  air  base  non-aircraft  evaporative  hydrocarbon 
activity  data. 

2.  To  calculate  annual  emissions  from  hydrocarbon  filling 
or  working  losses  and  spillage,  breathing  losses  from 
petroleum  storage  tanks,  tank  truck  parking  areas  and 
military  and  civilian  vehicle  parking  areas,  and  other 
sources . 


Input: 

Air  base  non-aircraft  evaporative  hydrocarbon  activity 
data. 


Output : 


1.  Print  all  input  data. 

2.  Print  all  calculated  annual  emissions. 

Subroutines 

Called: 


None 
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SUBROUTINE  EV A P HC ( N WP K , N H C BR , N XE V P) 

C 

C THIS  FOUTINE  PFAPS  THE  AIFPASE  EVAPORATIVE  HYDROCARbON  DATA 
C AND  COMPUTES  ANNUAL  EMISSIONS 

C 

REA  L* 8 MINUS 

COMMON  /TOTS/  TOTEM  (2 0 , 6)  , TOr EV P ( 1 0) 

COMMON  /ANNMET/  TB AR , A DD , P , P A , WSB AR , D Tb A R , A MD b A R 
COMMON  /PCI  NT R/  M , NS R CE3 , NM AX , NM AX E, LSRC ES , NTOT 

COMMON  /EM  FDB  1/  EGEM FC (6, 4 , 5 0)  , PL NA MF  (6 ) , PP EM FC ( 22 , 6 ) , E NFC  I N (5 , 6 ) 
. TFEMFC<6)  , LUEMFC(3  ,6)  , ALPHA  (7)  , BETA  (7)  , FLDENS  (7)  , FLU  AME(7)  , 

. AF EM FC  (2,6,6) , ATEMFC  (2,6,6)  .CSEMFC (6 , 6 ) , AFCS EM ( 6, 6)  , AF SO A K , 

. AT SOAK,  AF8BTH,ATSPTH,FLTFCT(7)  ,FIXFCT(7)  , WRKFCT  (7) 

COMMON  /DEFALT/  NP LTS , IT  A P E, M I NU S (6)  , 

. ACLNDY, ACLND2, TCVSDF , TCHB DF , TCHODF , TC D YDF , TCDZDF , R UD SDF , R UTSDF , 

. RUVSDF  ,FUHBDF  , hUH  ODF  , R’J  D Y DF , RU  DZ  DF , T FDZ  DF,  T Ft  DF , T FHBDF,  T F HODF, 

. EGCK DY,  EGCKDZ,  ACM L PL , ARDSDZ,  A TD SDY  , A TD SDZ,  TCDSDF , TCTS DF , F PDFLT , 

. TDPFLT,RFDFLT,5FDFLT  , PFD F LT , T FDF LT , T F L Y DF 
COMMON  /SPACE/  SOP C F ( 2 1 00)  , SOF E M ( 8 , 2 5 0) 

COMMON  /ARRAYS/  HCWRK  (10,50)  ,HCBRTH(5,  100) ,HCEVf  (3,50) 

DIMENSION  T VP  (7  ) , Y R US  E (7)  , CC  ( 7 ) , TSA  VE  1 ( 9 , 50) 

DIMENSION  ABAFS(7, 300) 

EQUIVALENCE  (AFARS (1) ,SORCE(1) ) 

C 

FXROOF  (F  X, A,P,D,H,T,C  1 ,C2) =FX*42. 0*o. 7B5* A* 

(P/  ( 14. 7-P) ) **0.6B*  (P*3 .28) **  1 . 7 3*  (H*  3. 281)  **0.5  1* 

T**0.5*C1*C2 

FLROOF  (FL, A ,P , K ,D,C1 , C2,C3)  =FL*42. 0* J . 785* A* 

(P/  ( 14. 7-P) ) **0.7*(w*2.23  7)  **0.7* (D*3.281)  * ♦ 1 .5* 

. C 1 *C  2*C  3 
C 

T P=  ( 5 . 0/9 .0)  * ( TB  AF  - 32.)  +273. 

DO  10  J=1 ,7 

10  TVP(.J)  =EXF  (ALFHA  (J)-  ( BETA  (J)  /TP)  ) 

DATA  SET  21  AIRBASE  AREA  SOURCES  WITH  HYDROCARBON  FILLING, 

WORKING  LOSS  AND  SPILLAGE 

READ  bb76,  AB1234 
8t  76  FOR  MAT  ( A 1 ) 

CALCULATION  OF  HYDROCAFEON  FILLING  AND  WORKING 
LOSSES  FROM  ALL  AIRBASE  SOURCES  INCLUDING 
TANK  TRUCK  FILLING 
AC  FILLING 

SERVICE  VEHICLE  FILLING 

ALL  PETROLEUM  STORAGE  AND  DISTRIBUTION  TANKS 
EXCEPT  THOSE  TFEATED  AS  POINT  SOURCES. 

AMCUNT  LOST  DUE  TO  5PILLAGF  IS  ALSO  CALCULATED  HERE 

READ  1,  NWPK 

1 FORMAT  (14) 

NWRK  = NO.  OF  AREAS  TO  BE  IESCPIBED 

IF  (NWRK.EQ.0)  50  TO  100 
PRINT  13 

13  FORMAT  (1H1 , 50X,  36HII.  C.  2 AIRBASE  HYDROCARBON  FILLING) 

PRINT  2 

2 FORMAT  ( 1 H - , 6 IX,  14HEMT  SSICN  INPUT) 

PRIM  14,  (FLNAME(I)  ,1=1,7) 

14  FORMAT  (1H0,  1X.6HSOURC  E, 42X, 28 H KILO LITERS  OF  F UEL  P ROC  ESS FD  , 3 « X , 


EVAPHOOO 
EVAPH001 
FV  APH002 
EVAPH00  3 
FVAPH004 
FV  APH005 
T V A PH  036 
EVAPH00  7 
EVAPH008 
, EV APH004 

EVAPH010 
EVAPH01  1 
FV  APH01 2 
EVAPH01 3 
FV  A PHM  1 4 
FVAPHO  15 
FV APH016 
FVAPH  01 7 
FV  APH01B 
EVAPH01Q 
EVA  PH  02  0 
EVA  PH 0 2 1 
E V A PH  022 
EV  APH02  3 
E V A PH  02  4 
EV  APH025 
FV  APH026 
FVAPH 027 
FV  APH028 
FVAPH 024 
EVAPH030 
FV  A nH0 3 1 
EVAPH032 
TV  A PH  0 3 3 
EVAPH  034 
EV  APHO  35 
FVAPH036 
FVAFH'>37 
FVAPH 03 8 
FV  A PH 0 3 9 
FVAPH  040 
FV  APH04 1 
EVAPH042 
EVAPH043 
FV  A F H 0 4 4 
F V A PH  04  5 
FV  A PHO 4 6 
FVAPH 047 
FV A PH  04  8 

EVAPH  049 

EV  A nH  050 
FVAPH05  1 
rV  AnH  052 
FVAPH 053 

rV  A PH0S4 
F V APH055 
rV  APH  3r>f 
FVAPH  057 
r V A P H 0 5 8 
FV  A PH  0C  9 
FVAPH  06 0 
1 V A PH)1  1 
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. 15 11  ANNUAL  SPI  LLAGE/1H  , 3 X , 2 H I D,  7 X , 7 ( A4 , 11  X)  , 1 1 H (N-TO  NS/Y  R ) / 1 H ,) 

C 

b C 60  N = 1 , N W F K 

READ  11, SID,  ( YF USE  ( J)  ,J=1,7) 

11  FOFM AT  (F4 .C,4X, 7F8. 2) 

RKA1  2222  , (CC  (J) ,J=1, 7) , SPILL 
2222  FORMAT  (8X,8F8.2) 

CO  3333  1 , 7 

IF  (CC(J)  .LE.0.0)  CC  ( J)  =T  F DFL  T 
3333  TSAVE1  (J.N) =CC  (J) 

DO  20  J=1,NMAX 

IF  (SID.EQ. ABARS  ( 1 , J)  ) GO  TO  30 
20  CONTINUE 
GO  TO  9000 
30  HCWRK  (1  ,N)  = SID 
HCWRK  (2, N) =J 
DO  40  J=1 ,4 

IF  (CC  (J)  .LE.0.0)  CC(J)=TFDFLT 
40  CONTINUE 

PRINT  12,  SID,  (YPUSE(J)  , J = 1 , 7 ) , SPILL 

12  F OR M AT ( 1 H , F7 .0 ,3X,  1P7  (E9. 3,6X) , 3X,  1PE9. 3) 

WRKLSS=0.0 

DO  50  J = 1 , 7 

A=WF.  KFCT(J)  *CC  (J)  *T  VP  (J)  * F LDE  NS  ( J ) *Y  RUS  E ( J) 

WRKLSS=WRKLSS*  A 
50  HCWRK  (2  + J,N) = A 

TOT  EVP  (4)  =TOTFVP  (4)  +WRKLSS 
TCTEV  P (5)  =TOTE  VP (5)  *S PILL *1000. 

HCWRK  (10, N) =S PILL* 1000. 

60  CONTINUE 
C 

PRINT  5555,  (F  LNAM  E (I  ) , 1=  1 ,7) 

5555  FORM  AT  ( 1H0,  IX, bHSOURC E,  42X, 30HESTIMATES  OF  THROUGHPUT  FACTOR/ 

. 1H  ,3X,2HID,8X,7  (A 4,  10XJ/1H  ,) 

DO  4444  N - 1 , NWPK 

PRINT  6666,  HCW  R K (1  , N ) , (TS  AV  E 1 ( J , N)  , J=  1 , 7) 

6666  FORMAT  (1H  , F7 . 0 , F 1 0 . 2 , 4X , 6 (F 1 0 . 2 , 4 X)  ) 

4444  CONTINUE 
PRINT  3 

3 FORMAT  (1H-/1H0 ,50X,  37HSOUICE  EMISSION  DATA  (K ILOGRAMS/VEAR ) ) 
PRINT  7 

7 FORMAT  (1H0, 61X,  1411  (WORKING  LOSS)) 

WRITE  (6,61)  (FLNAflE  (I  J)  ,1  J=1 , 7) 

6 1 FORMAT  (1  HO,  1 X , 6 HSU URC E/ 1 H , 3 X , 2H 1 D , 7 X , 7 ( A 4 , 1 1 X)  , 1 X , 8H S PI LLAG E/1 H 
DC  65  N= 1 ,NWRK 

PRINT  62, HCWPK  (1,N),  (HCWRK  (2*J,N)  , J=  1 , 7 ) , HCW RK  ( 10 , N ) 

62  FORMAT  (111  , F7 . 0 , 3X  , IP  7 ( £9 . 3 , 6 X)  , 3 X , 1 P E9 . 3 ) 

DC  65  J=1 ,7 

HCWRK  ( 2* J , N ) =HCWPK(2*J,N) /TVP (J) 

65  CONTINUE 
PRINT  4 

4 FORMAT  ( 111-,  48X,4  1HTOTAL  ANNUAL  SOURCE  EMISSION  RATE  ( KG/I R ) ) 
PRINT  66,  (TOTFVP(J)  ,J  = 4,5) 

66  FORMAT  ( 1 HO, 47 X,  12H WOP  KING  LOSS,2  0X,8H  SP1 LL AGE/ 1 H 0 , 4 9 X , 1 PE9 . 3 , 

. 2 1 X , E9 .3 ) 

TOT  EVP  (4)  =TOTEVP (4)  /I  000. 

TOTE  VP  (5) =TOTEVP (5) /I  000. 

C 

C DATA  SET  22  HYDROCARBON  BREATHING  LOSS  SITES  (F8DM 
C PETROLEUM  STOPAGE  TANKS) 

C 

100  BEAD  8676,  AB1234 


EV  A PH  06  2 
EV  APH  063 
EVAPH064 
EVAPH065 
EV APH066 
EV  A PH  06  7 
EVAPH068 
EV  APH  069 
EVAPH070 
EV  A PH  07  1 
EVAPH072 
EV APH07  3 
E V A PH  074 
EVAPH076 
EVAPH076 
EV APH077 
EV  APH  078 
EV  A PH  07  9 
EV  APH  080 
EV  APH  08 1 
EV  A PH  09  2 
EVAPH083 
EVAPH084 
EVAPH  085 
EVAPH086 
EV  APH087 
EVAPH  088 
EVAPH089 
EV  A PH  09  0 
FVAPH091 
EVA  PH092 
EV  APH  09  3 
EVAPH094 
EVAPH  095 
FVAPH096 
EVAPH  097 
EV  APH098 
EV  A PH  099 
EV  A PH  100 
EVAPH101 
EV  APH 1 02 
EVA  PH  10  3 
EVAPH  104 
) EV  A PH  1 05 
EVAPH  106 
E V A P H 1 0 7 
EV  APH 1 08 
EVA  PH  1 09 
EVAPH  1 10 
EV  APH  1 1 1 
FVAFH1  12 
FV A PHI  1 3 
EVAPH  1 1 4 
EV  APH  1 15 
EVAPH  116 
EV  A PH  1 1 7 
EV  A PH  1 1 8 
FV  APH  1 19 
EVAPH  120 
FV  A PH  1 2 1 
FV  A PH  1 2 2 
EVAPH123 
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n n 


READ  1,  NMAXE 

NMAXE  = NO.  OF  PETROLEUM  STORAGE  TANK  AhEAS 
NHCBR  =0 

IF  (NMAXE. EQ.O)  GO  TO  200 
BRL03S=0. 0 
LHC  bR  = NHCBR* 1 
NHCBP=NHCER+NMAXE 
PRINT  102 

102  FORMAT  (1H1,  48X,  40HII.  C.3  AIPbASE  PETROLEUM  STORAGE  TANKS) 

PRINT  2 

PRINT  103 

103  FORMAT  ( 1 H 0,  3X,6HSOURCE,4X,4HFUEL,4X,4HROOF,4X,7HNUM.  OF,4X, 

. 8HAVG  TANK,4X,5HPAINT,5X,28HROOF  ID  1 = TANK  DiAM  FACTOR, 4X, 

. 37HROOF  ID  1 = AVG  HT  OF  VAPOR  SPATE  (M)  /1H  , 

. 5X, 2 HID, IX, 2 (6  X ,2  H I D ) ,6X  , 5HT  ANKS  , 5X  , 0hDI  AM  ETEh,  4X , 6 ti  FACTOR  , 4X, 

. 23HFOOF  ID  2 = SEAL  FACTOR ,4 X , 24 HROOF  ID  2 = RIVET  FACTOR) 

DO  150  N=LHCBh , NHCBR 

FFAD  10 1, SI D, ID FUEL,) DROOF, NTA NKS,DIAM,C1,C2,C3 
101  FORMAT (F4.0, 314, 5F8. 2) 

DO  110  J=1 , NM A X 

IF  (SID.EQ.  ABAPS  (1, J)  ) GO  TO  120 
1 10  CONTINUE 
GO  TO  7000 
120  HCBRTH ( 1 , N)  =S1D 
HCBPTH  (2  , N)  =J 
HCBRTH  (3, N)  =1 DFUEL 
HCBRTH  (4 , N)  =IDROOF 
GO  TO  (1  30,  140)  , IDROO  F 

130  IF  (C1.LE.0.0)  C 1 = F PD  FLT 
IF  (C2.LE.0.0)  C 2=TDD  FLT 
H VS=C3 

A = NTANKS*FX  ROC  F (FIXFCT  (ID  FUEL)  , F LDE N S ( I DF UE L)  , T VP ( I DFU EL)  , DI A M , 

. HVS,CTBAR,C1,C2) 

TOT E V P (6 ) =TOTLVP  (b)  + A 
HCBRTH  (5, N)  =A 

PRINT  131, SID, I DFU EL, I DROOF, NT ANK S , DI AM , C 1 , C2 , HV S 

131  FORM  AT  ( 1 H , F9 . 0 , 17 , 1 8 , 1 1 0 , F 1 3 . 2, F 1 0 . 2 , F 2 1 . 2 , F3 5. 2) 

GO  TC  150 

140  IF  (C1.LE.0.0)  C1=PFDFLT 
IF  (C2.LE.O.O)  C2=  SFDFLT 

IF  (C3.LE.0.0)  C 3 = R FD  FLT 

A = NTANKS*FLROOF  ( FL T FC T ( ID FUEL ) , F LDE N S ( I DF UE L ) , T VP  ( 1 D FU FL)  , W S 6 A R , 
. DI AM, Cl ,C2,C3) 

T OT  E V p ( 7 ) =TOTE VP (7)  +A 
HCBFTH  (5,  N)  =A 

PRINT  131, SID, I DFU EL,  I DR OOF , NT  A N KS , D I AM, Cl, C*,C3 

150  CONTINUE 
PRINT  3 
PRINT  151 

151  FORMAT  (1H0, 4 1 X.bHSOURCE, 12X, 10HFIXED  ROOF , 1 2 X , 1 4 HFLO A TING  ROOF/ 
. 1 H ,43X,2HID, 12X,2 (14HBREATHING  LOSS,10X)) 

DO  170  N=LHCBR , NHCBR 
I DROOF  = HC  BR  TH ( 4 , N) 

GO  TO  (160,165), IDROOF 
1(0  PRINT  16 1, HCBFTH  (1, N)  .HCBFTH (5, N) 

161  FORMAT  ( 1 H , F 4 7 . 0 , 1 2 X , 1 PE9 . 3) 

J = HCBRTH  (3, N) 


EV A PH  1 24 
FVAPH125 
FV  A PH  1 26 
EV  A PH  1 27 
EV  APH  128 
FVAPH129 
EVAPH  1 30 
EV  APH  1 3 1 
FVAPH132 
F V A PH  133 
FVAPH134 
EVAPH  135 
EVAPH  1 36 
FV  A PH  1 37 
EVAPH  138 
'■VAPH134 
FV  A PH  1 4 0 
F.VAPH14  1 
FV  APH  142 
FV APH  14 3 
FV A PH  144 
EVAPH 145 
FV  A PH  146 
EVAPH  147 
EVAPH  148 
EV  APH 1 49 
EVAPH 150 
EV  A PH  1 5 1 
FVAPH 152 
EVAPH153 
rV  A PH  1 5 4 
EVAPH  155 
FV  APH156 
FVAPH  157 
EV  A PH  1 58 
EV  APH 159 
EVAPH 160 
FVAPH16  1 
EVAPH  162 
EVAPH163 
FV  A PH  1 6 4 
EVAPH  165 
FV  A PH  1 66 
EVAPH  167 
EVAPH  168 
EV  A PH  1 6 Q 
EVAPH170 
EVA  PH  17  1 
EV  APH  172 
EVAPH  173 
FV  A PH  1 7 4 
EVAPH  175 
EV  A PH  1 7 6 
EVAPH  17  7 
EVAPH  179 
FVAPH  17 9 
EVAPH190 
EVAPH19 1 
F V A P H 1 8 2 
FV  APH 1 8 3 
FV A PH  14  4 
F V A P H 1 8 5 
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non  noon 


HCFFTH(5,  N)  -HCPFTil  <5,  N)/  (TVP  (J)  /( 14. 7 -T  VP  (J)  ) ) **0.68 

EVAPH186 

GC  TO  170 

EVA  PH  187 

165 

PRINT  166  ,HCBITH  (1  , N)  ,HCBRTH(5,N) 

EVAPH188 

let' 

Fi  fih  AT  (1  HO,  F47. 0,  36  X,  1 PE«>  - 3) 

FVAPH109 

J = l CERTIi  (3  , N) 

EVAPH  1 B 0 

HCBFTH  (5, N) = HCBRTH (5, N)/(TVP (J) / ( 14. 7 -TVP (J) ) ) **0.7 

EVAPH  191 

170 

CONTINUE 

EV APH192 

PRINT  16c,  (MINUS  (JK)  ,JK=  1,2) 

EVAPH 193 

1b9 

F OR  MAT { 1 H , bOX, A8, 15X ,A8) 

EV  A PH  194 

PRINT  1 7 1 , (TOTE VP ( J) ,J=6,7) 

EV  APH  14  5 

171 

FORM  AT (1 H , 38X, 12HTOTAL  ANNUAL.9X,  1 PE  9 . J , 1 5X , E5.3) 

EV  A PH  1 96 

T OT E V F ( 6 ) =TOTEVP (6)  /1000. 

EV  A PH  19"’ 

TOTE  VP  (7) =TOTEVP (7)  /I  000. 

EVAPH  198 
EV  APH  199 

DATA  SET  23  HYDROCARBON  BREATHING  LOSSES  FROM  PETROLEUM 

EV  A PH  230 

TANK  TRUCK  PARKING  AREAS 

EV APH201 
EV  A PH  20  2 

200 

READ  8676,  AB1234 

EV  A PH  2 0? 

READ  1,  NMAXE 

FV  A PH  20  4 
FVAPH205 

NMAXE  = NO.  OF  TANK  TRUCK  PARKING  AREA  SOURCES 

EVAPH206 

EVAPH207 

IF  (NMAXE. EQ.O)  GO  TO  300 

FV  A PH  208 

I DROOF  = 1 

EVAPH209 

B FLOS  S = 0 . 0 

EVAPH21 0 

LHC  B fi  = NHC  PR  ♦ 1 

EV  APH21 1 

NHCBP=NHCBR*NMAXE 

EVAPH212 

PRINT  202 

EVAPH21 3 

202 

FORMAT  (1H 1 , 51 X,35HI 1.  C.  4 AIRBASE  TANK  TRUCK  PARKING) 

EVAPH2  14 

PRINT  2 

FVAPH215 

PRINT  203 

EV  APH  2 1 6 

203 

FORMAT (1H0,70X,ftHAVG  T ANK  , 1 4X , 7H AV ER AGE, 1 IX , 6H A V G TANK  /1H  , 

EVAPH21 7 

. 17X , 6HSOURCE,  10X,  4HFUEL,  1 1X,9HNUMBER  OF , 1 3 X , 8HC AP ACI T Y , 1 2 X , 

EV APH218 

. 1 1 REFACTION  OF , 1 0 X , 8 H DI A METER  /1H  , 

FVAPH2  19 

. 6X,  2 (13X.2HID)  , 11X, 1 1HTANK  T R UC K S, 1 0 X , 1 2 H ( K I LOL1 TE R S)  , 1 0 X , 

EVAPH220 

. 11HTANK  FI LLED,  10 X ,8 H(METERS)  ) 

EV  A PH  22  1 

DO  230  N=LHCBR, NHCBR 

EV  APH  22  2 

READ  2 01, SI D, IDFUEL.NTPKS , TNKCAP,  FPCF  UL,DI AM 

EVAPH223 

201 

FORMAT  (F4.0,2I4,4X,3F8.2) 

EVAPH224 

DO  210  J = 1, N M AX 

EV  A PH  22  5 

IF  (SID.EQ. ABARS  (1 ,J)  ) GO  TO  220 

FVAPH226 

210 

CONTINUE 

EV  APH227 

GO  TO  9000 

EVAPH  220 

220 

HCBRTH  (1, N)  =SID 

EVAPH229 

HCBRTH  ( 2 , N ) 

EV  APH 23 0 

HCBRTH  (3  , N)  =IDF!JEL 

EVA  PH  23  1 

HCBRTH (4, N)  =1 DPOO  F 

F.V  APH232 

H VS= ( 1 .0-FRCFUL)  *4 . 0 *T NKC  A P/ ( 3 . 1 4 1 59  * DI AM** 2) 

EVAPH233 

C1=FPDFLT 

FV  A PH  234 

C2=TDDFLT 

EV  A PH  2 3 5 

A=NTRKS*FXROOF (FIXFCT  (IDFUEL)  , FLDENS (1DFUEL)  , TVP (IDFUEL)  , DIAM, 

HVS, FVAPH236 

DT  E AR , C 1 , C2) 

EVAPH237 

TOTE  V P (8 ) -TOTE  VP (8)  +A 

EV  A PH  238 

HCBFTH  <5  , N)  =A 

EVAPH239 

PRINT  22 1,  SID, IDFUEL, NTRKS,TNKCAP,FRCFUL, DIAM 

EV APH240 

221 

FORMAT  (1H  ,F23.0,I13,I17,F24.2,2F20.2) 

EVA  PH24  1 

230 

CONTINUE 

EV  A PH  24  2 

PRINT  3 

EVAPH243 

PRINT  231 

EV  A PH  24  4 

231 

FORMAT (1H0, 49X, 9HSOUPCE  I D , 1 5 X , 1 4 HB R E A TH I Ni  LOSS/18  ) 

FV  A PH  24  5 

DO  2 40  N=1HCBR, NHCBR 

EVAPH246 

PRINT  2 3 2 , HCBPT  H ( 1 , N)  , HCBRTH (5,N) 

EVAPH247 
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232  FORMA  T ( 1H  , F56  . 0 , 1 9 X , 1 PE9 . 3) 

J=HCBRTH  (3 , N) 

HCBPTH (5, N)  =HCBRTH(5, N) /(TVP(J) /( 14.7-TVP  (J) ) ) **0.6B 

240  CCNH  NUE 

PRINT  75,  (MINUS  (JK) ,JK  = 1 ,1) 

75  FOR  MAT  ( 1H  , 75X,A8) 

PRI NT  241 ,TOTEVP  (8) 

241  FORMAT(1H  , 49X , 1 2HTOTAL  A N N UA L , 1 4 X , 1 P E9 . 3 ) 

TOTE  VP  (8)  =TOTEVP (8) /I  000. 

C 

C DATA  SET  24  HYDROCARBON  BREATHING  LOSSES  FROM  MILITARY 
C AND  CIVILIAN  PARKING  AREAS 

C 

300  READ  8676,  AB1234 
READ  1,  NMAXE 

C 

C NMAXE  = NO.  OF  VEHICLE  PARKING  AREA  SOURCES,  BOTH 
C MILITARY  AND  CIVILIAN 

C 

IF  (NMAXE. EQ.O)  GO  TO  400 

IDROCF  = 1 

BRLOSS=0. 0 

LHCB  R = NHCBR ♦ 1 

NHCBR=NHCBR*NMAXE 

PFINT  302 

302  FORMAT  ( 111  1 , 52X  , 32HI I . C.  5 AIRBASE  VEHICLE  PARKING) 

PRINT  2 

PRINT  303 

303  FORMAT  (1  HO , 60X , 6H NUM  OF,11X,8HAVG  TANK,  1 3X , 7H AV ER AG E/ 1 H , 

. 29X.6HSOURCE,  10X,4HFUEL,1 OX, 8H VEHICLES, 1 OX, 8HCAPACITY,10X, 

. 1 1 HF FACTION  OF/1H  ,31X, 

. 2HID,  13X.2HID, 11X.7H1N  AK EA , 1 1 X , 8H (LI TER S)  , 1 0 X , 1 1 H T A N K FILLED) 
DO  330  N=LHCBR, NHCBR 

READ  301, SID, 1DFUEL,NVEH,TNKCAP,FRCFUL 

301  FORMAT (F4. 0,214, 4X, 2F8. 2) 

PRINT  213,  SID.IDFUEL, NVEH,TNKCAP,FRCFUL 
213  FORM  AT  ( 1 H , F35. 0, 1 1 3,  116, 2F19 .2) 

TNKCAF=TNKC AP/1000. 

DO  310  J = 1 , NM AX 

IF  (SID.EQ.  ABARS  (1 ,J)  ) GO  TO  320 
310  CONTINUE 
GO  TO  9000 
320  HCBRTH  (1, N) =S1D 
HCBRTH  (2, N) =J 
HCBRTH  (3 , N)  =1 DFUEL 
HCBPTH  (4, N)  = I D ROO F 

EFDI A M= (4 .0*TNK CAP/3.  14159)  **.333  33  333 
HVS=  (1 .0-FRCFUL) *EFDI AM 
C 1 =FPDFLT 
C2=TDDFLT 

A=NV  EH*FXROOF (FIX  FCT ( I DFUEL)  , F LD E N S ( I D I UE L)  , T VP (1 DFUEL)  , EFDI AM, 
. HVS,DTBAR,C1 ,C2) 

TCTEVP  (9)  =TOTE V P (9)  *A 
HCBRTH  (5, N)  =A 
330  CONTI NUE 
PRINT  3 
PRINT  231 

DO  340  N=LHCBF, NHCBR 

PRINT  232  .HCBRTH  (1  , N)  , HCB  RT  H (5  , N) 

J=HCBFTH (1, N) 

HCBRTH  (5, N)  = HCBRTH  (5,N)/(TVP(J)/(14.7-TVP(J|))**0.btt 
340  CONTINUE 


FV  A PH  24  8 
EVAPH249 
EV  A PH  25  0 
EVAPH  251 
EVAPH252 
EV  A PH  25  3 
EVAPH254 
FV  A PH  25  5 
EV APH256 
EVAPH257 
EVA  PH  258 
EVAPH259 
FV APH260 
EVAPH261 
FV  A PH  26  2 
EV  APH  26 3 
FVAPH264 
EV  APH265 
FVAPH266 
EV  APH267 
FV  A PH  26  8 
EVAPH269 
EV  A PH  27  0 
EVAPH271 
FV A PH  27  2 
EVAPH273 
EVAPH274 
FV  A PH  27  5 
EVAPH276 
EV  A PH  27  7 
EVAPH278 
FV  A PH  279 
EVAPH280 
EVAPH  281 
FV  A PH  28  2 
FVAPH283 
EV APH284 
EV  A PH  2 8 5 
EVA  PH  28 6 
EVAPH287 
EV  A PH  28  8 
EV  A PH  28  9 
E V A PH  29  0 
EV  APH29  1 
EV  A PH  292 
FV  APH293 
EV  APH294 
EV  A PH  295 
EV  A PH  2°  6 
EV  A PH  297 
EVAPH 298 
EVAPH  299 
EVAPH  300 
EV  APH  301 
EVAPH  302 
FV  A PH  30  3 
EVAPH  304 
FVAPH795 
FV APH  3 06 
FV  A PH  30  7 
EVAPH 308 
FV  APH  3 09 
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PR1  NT  75,  (.'ll  NUS(  1)  ) 

PRINT  24 1 ,TOTF V P (9) 

TOTE  VP  (°) =TOTE  VP (q ) / I 003. 

DATA  SET  ->5  OTHER  rV  A FCR  AT  TV  E HYDROCARBON  AREA  SOURCES 


400  READ  8676,  AB1234 
READ  1,  NXEVP 

NXFVP  = NO.  OF  EVAPORATIVE  HYDROCARBONS  FROM  OTHER  SOURCES, 
E.G.,  PAINT  SPEAY  BOOTHS,  DEICERS,  DRY  CLEANING,  ETC. 


402 
571 

403 

401 

404 

410 
4 20 

430 

4 31 


4 12 

440 


45 

441 


90C0 

9001 


IF  (NXFVP. EQ.O)  GO  TO  500 
HCSUM=0. 0 
PRINT  402 

FORMAT (1H  1,  45X,  47HI I . C.6 
PRINT  571 

FORMAT  (1H-.53X,  31HE MISSION  INPUT  ( KI LOG RA MS / YE  A P)  ) 
PRINT  403 

FORMAT  (1H0, 51 X,9HSOURCE  I D , 1 2 X , 1 5 H A NN U A L EMISSION) 
DO  430  N=1, NXEVP 
REAP  401 , SID, ANNE M 
FORMAT  (F4. 0, 4X, F8.  2) 

ANNEM=ANNEM*1C00. 

PRINT  404,  SID,  ANNEM 

FORMAT  ( 1H  ,53X,F5.0,17X,1PE9.3) 

DO  410  J=1 , NMAX 

IF  (SID.EO. ABAFS (1 , J)  ) GO  TO  420 

CONTINUE 

GO  TO  9000 

HCE V P ( 1 , N)  = SI D 

HCEVP  (2  , N ) = J 

HCEVP  (3, N)  = ANNEM 

TCTEVP (10) =TOTEVP( 10)  +ANNEM 

CONTINUE 

PFINT  3 

PRINT  431 

FORMAT  (1H0, 51X, 9HSOUPCE  I D , 1 5 X , 9HEMI S SI  ON S ) 

DC  440  N=1, NXFVP 

PRINT  432, HCEVP  (1,N) , HCEVP (3,  N) 

FORMAT  (111  , 53X,  F5. 0,  1 7X,  1PE9.  3) 

CONTINUE 

TCTEVP(fc)  = T 0 T E V P (6)  +HCSUM 
PRINT  45,  (MINUS  (JK)  ,JK= 1 , 1) 

FORM  AT  ( 1 H , 75X , A 8) 

PRINT  441 , T OTE  V P ( 1 0 ) 

FORMAT  (1H  , 49 X , 1 2HTOT A L A N NUA L , 1 4 X, 1 FE9 . 3) 

TOTE  VP  (10) = TOT  EVP ( 10)  / 1 000. 

GO  TO  500 


EVAPH  310 
EVAPH31 1 
EVAPH312 
EVA  PH  31 3 
EVAPH314 
EV  A PH  3 1 5 
EV  A PH  3 1 6 
EVA  PH  3 1 7 
EV  A PH  3 1 8 
FV A PH  31  9 
FV  A PH  320 
EVAPH  321 
EVAPH322 
FV  A PH  3 2 3 
EVAPH  324 

OTHER  AIRBASE  EVAPORATIVE  H YDF OC A RBONS ) EV A PH  3 2 5 

EVAPH  326 


EVAPH 327 
EV APH328 
EV  A PH  32  9 
EV  A PH  3 30 
EVAPH33  1 
EVAPH332 
EV  APH  33  3 
EVA  PH334 
EVAPH335 
E V A PH  33  6 
EVA  PH337 
EVAPH  338 
EVAPH339 
EV  APH  34  0 
EVAPH341 
EV  A PH  34  2 
EV  APH  34  3 
pVAPH344 
F.VAPH3U5 
EV  A PH  34  6 
FV  A PH  34  7 
EV  APH  34  8 
F V A PH  3 4 9 
EV  A PH  350 
E V APH  35  1 
EV  APH  35  2 
EVAPH  353 
FV  A PH  354 
EVAPH  355 
EV  A PH  356 
EVAPH  357 
EVAPH  358 
EV  APH  359 

PRINT  9001  , SID  E V APH  36  0 

FORMAT (3H0ID,F5.0,  b5H  DOES  NOT  CORRESPOND  TO  ANY  OF  THE  AIRBASE  AREVAPH361 
.EA  SOURCE  ID  NUMBERS)  EV  APH  36  2 


500 


STOF 

RETURN 

END 


EVAPH363 
FV  APH  3 64 
EVAPH  365 
EV  APH  36  6 
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SUBROUTINE  FIRST 


Purpose : 

To  print  the  title,  table  of  contents,  introduction  and  list 
of  airbase  sources,  and  then  direct  control  to  subroutines 
INPUT  and  ACEFCT. 


Input: 


None 


Output : 

See  purpose. 

Subroutines 

Called: 


LETTER,  INPUT',  ACEFCT 
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n n 


c 

c 


SUBECU11NE  FIFST 

THIS  ROUTINE  PRINTS  111  E TITLE,  TABLE  OF  CUNT  LETS , 
INTROEUCT ION  AND  LIST  OF  AIPBASE  SOUnCES,  AND  THEN 
CALL  SUBROUTINES  INPUT  AND  AC'EFCT 

hEAL  *B  DES(  10)  , FACND 

DATA  SET  1 TITLE  INFORMATION  AND  DESCRIPTION  OF 
AIRBASE  SOURCES  AND  LOCATIONS 


cEAD  bG76 , A81234 
B676  FORM  AT  (A1 ) 

CALL  LETTER 

PRINT  115 

115  FORMAT  { 1 H 1 ,60X,17HTABIE  OF  CONTENTS) 

PRINT  201 

201  FORMAT  ( 1H-,  33X,  34HI . AIFCRAF  I SOURCES 

• //94X.40HA.  DEFAULT  INFORMATION 
. // 54X, j3  H 1 . ENGINE  TOLLUTANT  EMISSION  DATA 
. //54  X ,34  H2 . ENGINE  POLLUTANT  EMISSION  KATES 
. //44X, 36 HB.  INPUT  INFORMATION 
. // 54X,56H1  . INFORMATION  ON  AI^CR  Ar  T ACTIV11Y,  PARKING  AREAS, 

. IfcHWAYS  AND  RUNWAYS 

. //54  X ,44  H2 • INFORMATION  FOR  AIRCRAFI  SERVICE  VEhICLES 
. // 54X,42H3.  AIRCRAFT  LANDING  AND  TAKEOFF  PARAMETERS 
. //4  4 X , 42  HC . INTERIM  CALCULATIONS 
. // 54X,56H1.  AIRCRAFT  EMISSION  FACTORS  BY  AIRCRAFT  TYPE  (KG  FLF 

- 14HGINE  PEP  HOUR) 

. //33X,33HII.  AIRBASE  SOURCES 

. //44X, 5CHA . VEHICLE  AGE  DISTF1BUIION 

- 2H  D/4  7 X , 3 1 H E MISSION  FACTORS 
. // 54X, 35H1 . AIRBASE  VEHICLE  AGE  DISTRIBUTION 

. //54  X ,5 1 H2 . MILITARY  AND  CIVILIAN  POLLUTION  EMISSION  FACTORS 
. //4  4 X , 44  KB . AIRBASE  POINT  SOURCES 

• //54  X ,3  OH  1 . AIEBASE  TRAINING  FIRE  SITES) 

PRINT  202 

202  FORMAT  (/54X,21H 2.  ATRBASE  TEST  CELLS 
. / / 54X.23H3.  AIR  BASF  RUNUP  STANDS 

. //54  X ,23  H4 . AIREASE  POWER  PLANTS 
. //54X.23H5.  AIREASE  INCINERATORS 
. //54  X,24H6 . AIRBASE  STORAGE  TANKS 
. //54X, 23H7 . AIRBASE  OTHFR  POINTS 

• //94 X ,42hC.  AIREASE  AREA  SOURCES 

- // 54X, 33H1 . AIRBASE  AREA  SOURCE  GEOMETRIES 
. //54X.30H2.  AIRBASE  HYDROCARBON  FILLING 

. //54X,  3 4 H 3 . A IF  BA  S E PETROLEUM  STORAGE  TANKS 

. //54  X ,2  9H4 . AIRPASE  TANK  TRUCK  PAhKING 

. // 54  X , 26H5 . AIRBASE  VEHICLE  PARKING 

. //54  X ,4  1 H6  . CTHER  AIREASE  EVAPORAIIVt  HY  Di>OC  An  buNS 

. //54X.24H7.  AIPBASE  SPACE  HEALING 

. //54  X ,2  7H8 . AIRBASE  CFFROAD  VEHICLES 

. // 54X , 32H9 . AIRBASE  MILITARY  AREA  SOURCES 

. // 53X,41H10.  AIRBASE  CIVILIAN  VEHICLE  AREA  SOUnCES 

. // 44X,42HD.  AIR  BASF  LINE  SOURCES) 

PRIM  203 

203  FOPMAT  (/54X,46H1.  AIR  BASF  NON  - A1 RCF  A F 1 LINE  SOURCE  GEOMETRIES 
. //54X, 33H 2 . AIRBASE  MILITAFY  VEHICLE  LINES 

. //54X ,33H3 . AIRBASE  CIVILIAN  VEHICLE  LINES 
. //54X.35H4.  AlhBASE  OTHEF  NON-AIRCRAFT  LINES 
. //32X,34HIII.  ENVIRON  SOURCtS 


FIRST000 
FIPST00 1 
FIRST002 
FIR  ST  003 
FI RST004 
FIR  ST005 
FIPST006 
FIR  ST007 
FIRST009 
FIR  ST009 
F1RST01 0 
F1RST01 1 
F IRST012 
F1RST01 3 
F I R ST01 4 
FIRST01  5 
FIRST016 
FIF.ST01  7 
FIRST018 
FIRST019 
F 1 R ST  020 
FIRST021 
FIRST022 
TAXI F I R ST02 3 
FIPST024 
FIR  ST025 
F1RST026 
FIFST027 
ENFIRST02P 
FIRST029 
FIPST030 
NFIPST031 
r IRST032 
F1RST033 
FIRST034 
FI PST0  35 
F I R ST  03  6 
FIPST037 
FIF.ST036 
F I PST  0 3° 
FIPST040 
F1RST04  1 
FIR  ST042 
FIRST043 
F I R ST  04  4 
FIFST045 
FIR  ST046 
F I R ST  04  7 
F1FST048 
FIFST049 
F IF  ST050 
FIPST051 
FIR  ST052 
TIPST053 
FIRST054 
FIF.ST055 
FIFST05B 
FIRST057 
FIFST058 
I IRST059 
F IKSTObO 
11 F STOb 1 
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. //..4X,44II  A.  E N V j.  R 0 N POINT  SOURCES  FIRST062 

. //U4X.42HB.  ENVIRON  AREA  SOURCES  FIRST063 

. //B4X.L7H1.  ENVIRON  STATIONARY  AREAS  FIRST064 

. // 5 4 X , 23H2.  ENVIRON  MOBILE  AREAS  FIRST065 

. //44X,42HC.  ENVIRON  LINE  SOURCES  FIRST066 

. //1 4X, -4H1  . ENVIRON  FOADKAY  LINES  FIPST067 

. //'.  4 X ,44H2  . ENVIRON  NCN-RCAUR  AY  LINES  FIRST066 

. //33X, 17 HI V . S U M K A F Y FIPST069 

. //44  X ,56H  A . KETECROLOGICAL  DATA  SUMMAn  YFIRST070 
• // 4UX, 56HB.  TEMPORAL  DISTRIBUTION  FFAC  TFIRST07  1 
. 22H  ION  SUMMARY  F1RST072 

. //44X.52HC.  AIRCRAFT  EMISSION  SUMMARY  FIPST073 

. //54X.47H1.  SUMMARY  CR  ANNUAL  EMISSIONS  BY  AlhCRAFT  TYPE  FIRST074 

. //L4X,u7H2.  SUMMARY  CF  ANNUAL  EMISSIONS  FOR  ALL  AIRCRAFT)  FIRST075 

PRINT  204  FIRST076 

204  FORMAT  (/4  4 X , 5 0 H D . AIRBASE  EMISSION  SUMMARY  FIRST077 
. //L  4X,5tH1.  SUMMAPY  CF  ANNUAL  EMISSIONS  FROM  GROUND  MOBIL  S OU R CES FI RST 07 0 

. //54X.54H2.  SUMMARY  CR  ANNUAL  EMISSIONS  FROM  AIRBASE  FACILITIES  FIRST079 

. //E4X.56H3.  SUMMARY  OF  ANNUAL  EMISSIONS  FROM  EVAPORATIVE  HY DROC A PF I RST 08 0 


SOURCES 

SOURCES 


SOURCES 


DATA 


S FIRST062 

FIRST063 
FIR  ST064 
FIRST065 
FIR  ST066 
FIRST  067 
FIR  ST068 
FIPST069 
S U M M A n YFIRST070 
N F R A C TF1RST07 1 


EMI  SSION 


SUMMARY 


F1RST072 
FIPST07  3 
FIRST074 
FIRST075 
FIRST076 


12HBCN  SOURCES  FIRST081 

. //4«X,5CHE.  ENVIRON  EMISSION  SUMMARY  FIFST082 

. //54X,44H1.  SUMMARY  CF  ANNUAL  EMISSIONS  FROM  ENVIRONS  FIRST083 

. //4  4 X , 28  HF . TOTAL  SUMMARY  FIPST084 

. //S4X,34H1.  SUMMARY  OF  ALL  ANNUAL  EMISSIONS  FIRST085 

. //54X.47H2.  EMISSION  PERCENTAGE  BREAKDOWN  OR  ALL  SOURCES)  F1RST086 

: FIR  ST  087 

PRINT  9000  F I R ST 088 

9000  FORMAT  ( 1H  1, //COX, 12HI NTRODUCTION , 8 (/) ) FIRST089 

PRINT  9001  FIRST090 

9001  FORM  AT  ( 1 H ,28X,60HTHE  US  AIR  FORCE,  THROUGH  A CONTRACTUAL  EFFORT  BF1RST091 

.Y  AF.GCNNE  NATIONAL  LAECRATCRY  /1H  ,28X,  FIRST092 

. 80h(ANL),  HAS  DEVELOPED  THE  USAF/ANL  AIR  QUALITY  ASSESSFIRST093 

.MINT  MODEL  (ACAM) . THIS  /1H  ,28X,  FIRST094 

. 0OH  MODEL  CCNSISIS  OF  FOUR  COMPUTER  COuES:  A SOURCE  INVEFIR  ST095 

.NTORY  PROGRAM  TO  COMPUTE  /1H  ,28X,  FIRST096 

. 80h IC  TA  L EMISSIONS  FROM  OPERATIONAL  INPUT  DATA,  A SHOR TF 1R ST097 

.-TERM  DISPERSION  PROGRAM  TO  /1H  ,2BX,  FIRST098 

. 80HPREDICT  AIR  QUALITY  CONCENTRATIONS  ON  A ONE-HOUR  BASFIRST099 

.IS,  A LONG-TERM  PROGRAM  TO  /1H  ,28X,  FIRST100 

. 80hPREDICT  CONCENTRATIONS  ON  AN  ANNUAL  BASIS,  AND  A METFIRST101 

. Ei/RCLCGiC AL  PROGRAM  TO  /1H  ,28X,  FIRST102 

. 80HCCMPI IF  THE  CLIMATOLOGY  FOR  USE  IN  IHt  LONG-TERM  PREFIRST103 

.DICTIONS.  DETAILED  /1H  ,2oX,  FIRST104 

. 80HDISCUSSIONS  OF  THE  AQAM  THEORY  AND  APPLICATIONS  ARE  FIRST105 

.PRESENTED  IN  AF * L-T R-7 4-30 4 , / 1 H ,28X,  FIRST106 

. J5::AFNL-TP-75- 220,  AUu  At  S.L-TR-75-307.)  FISST107 

RliNT  9 J 0 2 FI R ST  1 08 

°00l  FORMAT  ( 1 H 0, 2 8X, 8 OHTHF  SOURCE  INVENTORY  PROGRAM  INPUT  DATA  IN CLUDE SF I R ST  1 09 
. AIRCRAFT  ENGINE  EMISSION  /1H  ,28X,  FIPST110 

80  R F AC  TORS , -ANBING  AND  TAKEOFF  (LTO)  CYCLE  IN R OR M A TI ONF I R ST  1 1 1 
.,  PUNNAY,  TAX1RAY,  AND  /Iri  ,2nX,  FIRST112 

. SOhPAFKING  RAMP  COORDINATES,  LTO  ACTIVITY  BY  AIRCRAFT  TFIRST113 

.YPE,  AND  EMISSION  /1H  ,2bX  FIPST114 

. 8 0hl NR  CR  MAT  1 CN  FOR  MANY  NON-AIRCRAFT  EMISSION  SOURCES.  FIRST115 

. AIRCRAFT  ENGINE  EMISSION  /1H  ,23X,  F1RST116 

. 80H  NR  OR  MAT  ION  WAS  COMPILtD  FRO.-i  MEASURMENTS  TAKEN  BY  TFIRST117 

.HR  A I F FORCE,  NAVY,  OTHER  /1H  ,2BX,  FIPST118 

. 34HGOVERNMENT  AGENCIES,  AND  INDUS1RY.)  FIRST119 

PRINT  9003  FI R ST  1 2 0 

9003  FORM  AT  ( 1H0,  28X , 80HTHE  LTO  CYCLE  INFORMATION  »«AS  OBTAINED  FROM  F1ELFIRST121 
.D  OBSERVATIONS  AT  FIVE  LCCATIONS/1H  ,26X,  FIRST122 

. 80HAND  PILOT  SURVEYS  AT  SIX  LOCATIONS.  THIS  I N FOR M ATI  OF 1 FST  1 2 3 
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n n n n n non 


• N INCLUDES  TIME  IN  NODE  / 1 H ,28X,  FIPST124 

. 8 0 HH EASURMENTS , AIRCRAFT  VEL0CI1IES  AT  SELECTED  C HECKP CF 1 R ST  1 2 5 

.INTS,  AND  ENGINE  FUEL  FLOWS  /1H  ,28X,  F1PST126 

. 80HIN  EACH  OF  THE  NINE  MODES  OF  THE  L TO  CYCLE  (IDLE  AT  FIRST127 

•START-UP,  TAXI-OUT,  ENGINE  /1H  ,28X,  FIRST128 

. 80HCHECK,  TAKEOFF  ROLE,  CL1MBOUT,  APPROACH,  LARDING  ON  F1PST129 

•RUNWAY,  TAXI-IN,  AND  /1H  ,28X,  FIRST130 

. 80HSHUTDOWN)  . PUNWAY  ROLL  TIMES  AND  LOCATIONS  APE  COM  PF I RST  1 3 1 

•UTED  FROM  A SERIES  OF  /1H  ,28X,  FIRST132 

. 80HALGOR ITHINS  DEVELOPED  FROM  AIRCRAFT  OPERATING  MA NU ALF 1 RSI  1 33 

• S AND  ARE.  FUNCTIONS  OF  AIR-  / 1 li  ,28X,  FIRST134 

80HCPAFT  GROSS  WEIGHT,  PRESSURE  ALTITUDE,  AND  AMBIENT  TF1RST  135 
•EKPELATUnE.  C 1 1 MB  OUT  TIMES  /1H  ,28X,  FIRST136 

. 80HARE  COMPUTET  FROM  VELOCITY  DIFFERENCES  BETWEEN  T AKEOFI PST  1 37 

•FF  ANT  AT  A 3000-FOOT  /1H  ,28X,  FIRST138 

. 9HALIITUDE.)  FIRST139 

PRINT  9004  F IR  ST  1 40 

9004  FORMAT  ( 1H0,  28X,  60HNONA IRCPAFT  EMISSION  SOURCES  ARE  COMPUTED  BY  UTIFIPST141 
. LI  21 NG  A LATA  E AN  K OF  EMISSION  /1H  ,28X,  FIRST142 

. 80HFACTORS  WHICH  HAS  BEEN  PROGRAMED  INTO  THE  AQ  A M . THFIRST143 

•ESE  VALUES  ARE  CONSISTANT  /1H  ,28X,  F1RST144 

. 80HWITH  THE  2P  A PJ BLiO AT  ION  AP-42.  OP  ER  AI LON  AL  INFOR M AF IR ST1 45 


• TION  MUST  BE  INPUT  /1H  ,28X, 

. 39hSPE.CI  FI  C ALL  Y FOE  EACh  AIR  EASE  ANALYSED.) 

ID  MA  X IS  THE  TOTAL  NUMEER  CF  GRID  i-OCATluNS 

READ  8 06,  I DM AX 
606  F CR  M A I (1 4 ) 

IF  (1CMAX.LE.0)  GO  TO  616 

FR1NT  808 

808  FORMAT  (1H  1//54X  , 26H  LO  C AT  ION  OF  GRID  ORIGIN//) 

PRINT  810 

8 10  FORM  AT  (IX,  1 6X  , 9 HBEN  CH  HAP  K ,25X,  8H  L A T1  T UDE , 1 4 X , 9 H LONG  I T U DE  , 1 2 X , 
. 1 2 H U T K NORTHING, 1 IX, 11HU1 M EASTING) 

PRINT  811 

811  FORMAT  (T15.13H  (DESCRI PTION) ,2 U , 1 3H ( DEG/M  IN/SEC)  ,9X, 

. 1 3 H (DEG/HIN/SEC)  , 1 3 X , 1 2H  (KILOMETERS)  , 1 IX, 1*H (KILOMETERS)  ,/) 
DO  813  J J = 1 , 1 DM  AX 

REAT  bl 4 , (DES (I) ,1=1 ,6) , ID1 , IM1 ,S1, ID*, IMi , S 2, KMN , KM L 
8 1 4 FORM  AT (6  Ac, 2(214, Fb. 3)  , *F8-3) 

PRINT  815,  (DES  (I)  ,1=  1 ,6)  ,ID1,  IH1,S  1,  ID2,  IM2,  S2,K.1N  ,KhE 
BIS  FORMAT  ( IX, 6 Ab,  12X,2I4,1X,F6.3,7X,2I4,1X,Fb.3,T9b,F8.3, 

. 11  * 0 ,F£ . 3) 

813  CONTINUE 
816  CONTINUE 

I DM  AX  IS  THE  TOTAL  NUMbEF  OF  AIRBASE  SOURCES 


READ  b 1 2,  I DM  AX 
b 12  FORMA  I (14) 

IF  (ICMAX.LE.O)  GO  TO  817 
PRINT  800 

600  FORMAT  (1H0/1H0,T54,  26HLIS1  OF  AIPdASE  SOUFC ES ,/ 1H0) 
PRINT  8*1 

8*1  FORMAT  (1  X ,6HSO'JSCE,  9 X ,8  HE  ACILITY,  19  X,  11  HDES  CREPT  ION) 
PRINT  801 

801  FORMAT  (3 X ,2  HI D , 1 2 X , b H NU ME FR/) 

DO  807  I J = 1 , I DM  A X 

READ  602,  NID,FAcND, (DES(I) ,1=1,8) 


FIRST  1 46 
FIR  ST147 
F1P  ST148 
FI  FSI  149 
FIR  ST150 
FIRST151 
FIRST152 
FIRST  153 
FIPST154 
FIFST155 
FI  RST  156 
FIR  ST157 
FI RST 158 
FIRST159 
FIRST  160 
FIRSTIbl 
FIRST  162 
FIRST  16  3 
FIKST164 
F1RST165 
FIRST166 
F I RST 1 6 7 
FIPST168 
FT  RST 1 6 9 
FIRST  170 
FIPS T 171 
FI  PST  172 
FIF.ST  17  3 
F I F ST  1 74 

F 1 RST 1 7 5 
FIFST176 
FIRST  177 
FIR  ST178 
FIRST179 
FIRST  180 
FIR  ST18  1 
FIRST  182 
F 1 h ST  1 83 
FIRST184 
FI RST  185 
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b 02  FCEKAT  (14  ,2  X.A8  ,2X,8A8) 

IhlM  803,  NIL>,  FACND,  (DES  (I)  ,1  = 1,8) 
b03  f C R K A T (2X,I  U,  1 1 X , A 8 , 1 0 X , 8 A 8) 
b 07  CONTINUE 
817  CONTINUE 

PFINT  117 

117  FChKAT(1H1,28(/)  ,S9X,  17HS  EC  I I u N I,///, 
. 52X.31HA  I E C K A F T S O U ft  C t S/) 

CALI  INPUT 

CALL  ACEFCT 

RETUFN 

END 


FI R ST  1 86 
FIRST187 
FIRST188 
FIRST1 89 
FI RST  190 
FIRST191 
FIKST192 
FI  RST  193 
F I ft  ST  1 9 4 
FI RST  19  5 
FI P ST  1 96 
FI RST 1 97 
FI P ST  19  8 
FIRST199 
FIRST  200 
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SUBROUTINE  INPUT 


Purpose: 

!•  To  initialize  temporal  distribution  arrays  to  default 
values. 

2.  To  enter,  via  namelist  reads,  non-default  values  for 
basic  engine,  aircraft  and  time  distribution  data. 


Input : 

NAMELI ST/EGDATA/ 
NAMELI ST/ ACDATA/ 
NAMELIST/DSDATA/ 


Output : 


None 
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SUBROUTINE  INPUT 


THIS  5GU1INE  STORES  DEFAULT  DATA  IN  THE  TEMPORAL 
D ISTF I BUT  ION  AFP  AYS  AND  READS  THE  NAMELIST  DATA  FOR  ANY 
CHANGES  TO  THOSE  ARRAYS  AND  TO  THE  BASIC  ENGINE  OR 
AIRCRAFT  DATA  ARRAYS 

REAL  LNDSPD 
INTEGER  ENGNO 

REAL* B AC  NAME, EG NAME, KONA M 1 , T H NAM E 


COMMON  /DSTRBT/  ACMO(1 
. VHMLDY  (2) , VHMLHR  (24)  , 
. C VE ND Y (2)  ,CVENHR(24)  , 
COMMON  /ACEDB1/  ACEMFC 
. ASCNT1 (50) , ASCNT2 (50 ) 
. APSPD  2 ( 50)  , TOSPD  ( 5 0)  , 
. EGCHKT  (50)  ,SHTDNT (50) 
COMMON  /DEFALT/  NPLTS , 
COMMON  /EMFDB1/  EGEMFC 
. IFEMFC  (6)  .LUEMFC  (9 ,6  ) 
. AFEMFC(2,b,6) , ATEMFC ( 
. ATSOAK, AFBRTH, ATBRTH , 
COMMON  /EGEDB1/  MO N AM  1 
. IAC  ABF (50)  ,EGFF (4, 50) 


3,50)  , ACDY  (2,  50)  , ACHn  U4,  50)  , VHMLMO  ( 13)  , 
CVABMO (13)  , C VAbDY ( 2)  ,CVABHR (2  4)  , CVENMO (13)  , 
FLMG  (13,7)  , FLOY  (2,7) ,F^HR  (24,7) 

: (50, 10,6)  , ACNAME(50)  , EGN  Aft  L ( 5 0)  , ENGNO (50, 2)  , 
,TXISPD  (50)  , LNDSPD  (50)  , APSPD1  (Do)  ,COHT1(50)  , 
COSPD1(50)  ,COsPD2  (50)  ,SRrUPT(50)  , DS  C NT  1 (50)  , 
, DS  CNI 2 (50)  , APPHT, APPHT2(50)  , CLMBHT, TO  NT  (50) 
ITAPE 

:(6,4,50)  , PL  SAME  (6  ) , PFEMFC(22  ,b|  ,EMFCIN(5,b)  , 
,ALPHA(7)  , BETA(7)  , FLDENS(7)  ,FLNAML(7)  , 

2,  b,  b)  , C SE  MFC  (b  ,0)  , AFCSEM  (b  ,b  ) , AFSOAK, 

FLTFCT  (7)  , F li  F'CT  ( 7)  , N hK  FCT  (7) 

(10)  ,TH NAME (4)  , MONA  Mi ( 10)  ,IDAC£G( 50)  , 
,IEGABF(50;  , I DRR (50) 


NAMELIST  /EGDATA/  EGN A ME, E GFF,IEGAbF, EGEMFC, AC NAME, IDAC EG, IACABF, 
. IDRR 

NAMELIST  /DSD  AT  A/  A CMO  , AC  D Y , AC  HR  , Vn  MLMO,  VH  M LD  Y , VH  .1  Lri  fi  , C V A b MO, 

. C VA BD Y,C V A BHR, CVENMO .CVENDY, CV  ENHh,  ELMO,  FL  DY, FLHb 
NAMELIST  /ACDATA/  APP  HT,C LMBHT .ENGNO,  DScNT 1 , DSCNT 2, A? SPD 1 , AP SPD2. 
. APP  HI  2,  ASCNT1,  ASCN  T2  ,COSPD1  ,COSPD2  ,Coti  T1  ,T  XI  S PD , LN  DS  PD, TOS  PD, 

• SRTUPT, EGCHKT, SHTDNT  , LOUT 

SET  UP  TEMPORAL  DISTRIBUTIONS,  MONTH  = 1/12,  LAYS  =1/7,  AND 
HOUFS  F POM  6 A.M.  TO  6 P.M.  = 1 /12. 

HOURS  FROM  6 P.M.  TO  b A.M.  EQUAL  ZERO. 

FM=1 ./12. 

F C = 1 ./7 
DO  10  1=1,12 
DC  11  J= 1 ,50 
ACMO ( 13, J)  = 1. 

11  ACMO (I , J) =F  M 
VHMLMC(l)  =FM 
C VA  t MG  (I)=FH 
CVENMO  (I)  = FM 
DC  10  J=1 ,7 
F LMO  ( 1 3, J)  =1. 

10  F1MC  (I  , J)  =PM 
VHMLMO(  13)  = 1. 

CVAEMG  (13)  = 1. 

CVENMO  (13)  =1. 

DC  15  1=1,24 
F H=  0 . 

IF  (I.GT.6.AND.I.LT.  19)  FH=1./U. 

DO  1b  J = 1 , 50 
16  ACHR  (I , J ) =FH 
VHMLHR(I)  =FH 
CVAbriR  (I)  =FH 
CVENHF  (I)  =FH 


INPUT030 
INPUT001 
INPUT002 
INPUT003 
INPUT004 
INPUT005 
INPUT006 
INPUT007 
IN  PUT008 
I N PUT  009 
INPUTO 10 
IN?  UT01 1 
IN  PUT01 2 
INPUTO 1 3 
TNPUT014 
1 NPUT01 5 
INPUTO  16 
INPUT017 
I N PUT  01 8 
I N PUT  0 19 
INPUT02Q 
I NPUT02  1 
INPUT022 
INPUT023 
I N PUT  02  4 
INPUT025 
IN  PUT  0 26 
INPUT027 
INPUT028 
INPUT029 
IN  P UTO  30 
INPUT03  1 
INPUT032 
I N PUT  0 3 3 
INPUT034 
IN  PUTO  35 
INPUT036 
-PUT037 
PUT  0 33 
PUT03 9 
N PUT  040 
INPUT041 
INPUT042 
INPUT043 
1NPUT044 
INPHT045 
INPUT046 
INFUT047 
INPUT048 
INPUT049 
IN  PUT053 
I NPUT35  1 
INPUT052 
IN  PUT053 
INPUT  054 
I N PUT  055 
INPUT05b 
I N PUT  151 
I N P ll~  0C  9 
1NPUT059 

ISTHTObO 
I N r U T )►  1 


L 


n p ^ o ^ r ^ or“0  o 


DC  15  J = 1 ,7 
15  FLHF  IX, J)  = F il 
C 

DC  1=1 ,2 
ru  .i  j - 1,  5 o 

^1  AcLY(I,J)=FD 
VhMLCY  (X)  = FD 
CVAPDY  (1)  = FD 
CVEM  Y (1)  = f D 
DU  20  J=  1 ,7 
20  XL DY  ( 1, J)  = FD 
C 

C DATA  SET  2 NAMELIST  DATA 

C 

F FAC  bb  76,  AU  12  )4 
tb 7b  FCRMAI(AI) 

C 

C US I Nu  NAMELIST  EGDATA,  INTUr  ANY  CHANGES  TO  BASIC  cNGINE  DATA 
OB  CATA  TO  ALE  A NEW  A IBCF  AFT 

REAL  (5,  EGD  A Tt  / 

USING  NAM  EXIST  ACDAT  A,  I N f U T ANY  CHANGES  TO  BASIC  AIRCRAFT  DATA 
READ  (5  , Ac  D AT  A) 

USING  NAMELIST  DSDATA,  INPUT  ANY  CHANGES  TO  THt  TEMPORAL 
DISTRIBUTION  ARRAYS 

PEAL  ( 5 , CSDATA) 

CHANGE  DEGREES  TO  RADIANS  FOR  AIRCRAFT  ANGLES. 

DC  25  1=1 ,50 

ASCNT  1 (I)  =ASCN  T 1 (I)  *0.017453* 

ASCNT2  (l)=ASCNT2(Il  *0.0174 53 3 
CSCNT  1 (I) = D3CN  T 1 (I)*0.0174533 
DSCNI2(I| =DSCNT2 (I)  *0.0174533 
25  CONTINUE 
RETURN 
END 


I N PUT  06  2 
INPUT063 
I N PUT  06  4 
INPUT065 
IN  PUT  066 
INPUT067 
IN  PUT06  8 
I NPUT06  9 
INPUT070 
INPUT071 
INPUT072 
INPUT073 
I N PUT0  7 4 
INPUT075 
IN  PUT  07  6 
INPUT077 
INPUT078 
INPUT079 
IN  PUT  08  0 
INPUT08  1 
INPUT082 
IN  PUT08  3 
INPUT084 
INP0T085 
INPUT086 
IN  PUT037 
INPUT088 
INPUT089 
INPUT090 
INPUT091 
I N PUT  09  2 
INPUT093 
IN  PUT09  4 
INPUT095 
IN  PUT  096 
INPUT097 
IN  PUT09R 
INPUT  099 
IN  P DTI  00 
IN  PUT  10  1 
INPUT1 02 
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SUBROUTINE  LAST 


Purpose: 

To  contain  in  one  overlay  all  the  non-aircraft  emission 
subroutines,  and  to  print  the  sunrnary  data. 

Input : 


None 


Output : 

None 

Subroutines 

Called: 


ABPTIV,  ABARIV,  ABLNIV,  ENEMIV 
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SUBROUTINE  LAST 


non 


c 

c 

c 

c 

c 


c 


c 


c 


c 


SUBROUTINE  LAST 

THIS  ROUTINE  SERVES  AS  A SUBDRIVER  TO  CAIL  ALL 
NON-AIRCRAFT  EMISSION  SUBROUTINES  AND  PRINT 
THE  SUMMARY  CATA 

REAL *8  ACNAME,OPNAM1,OPNAM3,OPNAMS,EGNAME, MINUS 
INTEGER  ENGNO 

COMMON  /PCINTR/  M , N SRC ES , NN AX , NMA X E , LSRCES , NTOT 

COMMON  /ACEDB1/  ACEMFC  (SO , 10 , 6)  ,ACNAME(50) , EG NAME  (SO)  , ENGNO (SO, 2)  , 
. ASCNT1  (50)  , ASCNT2  (50) ,TXISPD (50)  ,LNDSPD(50)  , APSPD 1 (50)  ,COHT1 (50)  , 
. APSPD2  (50)  ,TOSPD (50)  ,COSPD1 (50)  ,COSPD2  (50)  ,SRTUPT(50)  , DSC  NT  1 (50)  , 
. EGCHKT (50)  , SHTDNT (50)  ,DSCNT2  (50)  , APPHT , A PPHT2  (50)  , CLM BHT, TOUT ( 50) 
CCMMCN  /ACEDB2/  N ACTY P , NPNWYS , NPK AR , I EGFLG , I ACT YP  (8)  , ANNARR ( 8)  , 

. ANNDEP  (8)  , ANNTGO (8)  , ARR  FCN  (2  4 , 8 , 6)  , DEPFCN  (24 , 8 , 6)  ,TGO(3,4,8) , 

. DISRNW (6)  , RNVY  (7,6) , IUSWD  (20,6) , RNWYAR  (8 , 6) , R NK YDP  (8 , 6)  , ACFUEL  (8) 
. , ARFLVT  (8)  ,DPFLVT(8)  , ACSPIL (8)  , AR SVEM (6 , 8 , 5)  , DPSVEM  (6,8,5)  , 

. NIBTT  (6)  , N IBSEG  (8 , 6)  , II BSEG ( 1 6, 8 , 6)  , I DI BTN  (8 , 6 ) , TT ARFR  (8 , 8, 6)  , 

. NCBTT  (6)  , NOES EG  (8,6)  , IOBS EG ( 1 6, 8 , 6)  , IDCBTN  (8,6)  , TTDPFR (8,8,6)  , 

. NPASC(6),IDPRKA(6),PAREA(6,3,J),IDIBPA(8,6),IDOBPA(8,6), 

. NLSEGS,ACLNSG(12,25) 

COMMON  /ANNMET/  TB AR , A CD , P , P A , WSB A R , D Tb AR , AMDB AR 

COMMON  /DSTRBT/  ACM 0 ( 1 3 , 50 ) , A C D Y ( 2 , 50 ) , ACH R (2 4 , 5 0) , V HML MO ( 1 3)  , 

. VHMI.  DY  (2)  ,VHMLHR  (24)  ,CVAEMO(13)  ,CVAbDY(2)  ,CVABHR(24)  ,C"ENMO(13)  , 

. CVENDY  (2)  ,CVENHR{24)  , ELMO  (13, 7)  ,FLDY  (2,7)  ,FLHR(2  4,7) 

COMMON  /EHFDB1/  EGE MFC  (6 , 4 , 50 ) , PL NA  M E (6 ) , P f EMF  C ( 22 , 6)  , EMFCIN  (5,6)  , 
. TEEMFC  (6)  ,LUEMFC (9, 6)  , ALPHA (7)  , BETA (7)  , FLDENS  (7)  ,FLNAME  (7)  , 

. AFEMFC  (2,6,6)  , ATEMFC  (2 , 6,6)  , CSEMFC (6 ,6)  , AFCSEM  (6,6)  , AFSOAK, 

. AT  SOAK, AF  BRTh, ATBRTH, FLTFCT (7)  ,FIXFCT  (7)  , KRKFCT  (7) 

CCMMCN  /TOTS/  TOTEN(20,6)  ,70TEVP(10)  , EM ISS  (8 , 1 5 , 6)  ,ACEM(8,6) 

COMMON  /DEFALT/  N PLTS  , IT APE , M I NUS  (6) 

DIMENSION  CPNAM1  ( 1 6 ) , OPN AH2 ( 1 6 ) , OPN A M 3 ( 20)  , 0 PN AM4 ( 2 0)  , OPN AM 5 (4)  , 

. CPNAM6 (4)  ,SDMEMI  (4,6) ,TSUMEM(6)  ,TM ISS  (15,6) 

DATA  CPNAM1  /8HSTARTUP  ,8HTAXI  OUT , 8H ENGI NE  C,  8HRUNWAY  R, 

8HCLIMB  1 , 8HC  LIMB  2 ,8 HAPPRO ACH ,8 H APPROACH, 8 HL AN DI NG  , 

8HTAXI  IN  ,8HSHUTDOW N,8HARR  ♦ DE, 8 H FUEL  VEN,8HFILL  ♦ S, 

8HTCUCH  ♦ , 8HTOTAL  / 

DATA  CFNAH2  /2*4H  , 4H BECK, 4 HOL L ,2*4H  ,4H  1 ,4H  2 , 

3 * 4H  ,4HP  SV,4HTING,4HPILL,4HGO  ,4H  / 

DATA  CPNAH3  /8HENVIRON  ,8HENV  STA  ,8HENV  MOB  ,8HENV  LAND, 

8HENV  COM  , 8HENV  ROAD, 8HENV  NON- , 8HTR  AI N FI, 

8HTEST  CEL,8KRUN-UP  S,8HPOWER  PL, 8 HI  NCI NER A, 

8HCTHER  AB, 8HSPACE  HE, 8 HOFF  RC A D , 8H M I LI T AR Y , 
8HCIVILIAN,8HMIL  VEH  ,8HCIV  VEH  , 8 HOT  HER  AB/ 

/4HPTS.  ,4HAREA,4HAREA,4H  U SE,  411  AR  E A , 4 H WAY,4HR0AD, 
4HRES  , 4 HLS  ,4HTDS  , 4 H A NT S , 4 HTORS , 4 H PTS, 4HATNG, 

4 H V EH , 4 H V EH, 4H  V EH , 4 HI  I N E , 4HL1 NE/ 

/8HAIRC RAFT, 8HG ROUND  M , 8 H F ACI LIT 1 , 8 HEN V I RON S/ 

/4  H ,4HOBIL,4HES  ,4H  / 

/ 24  * 0.0  /,TSUMEM,THCEVL/  7»0.0/ 


DATA  CPNAM4 


DATA  CPNAM5 
DATA  CFNAM6 
DATA  SUMEMI 


CALL  THE  NON-AIRCRAFT  EMISSION  SUBROUTINES 

NSRCES=0 
CALL  ABPTIV 

NSRCES=0 
CAIL  ABARIV 

N S RC  E 1 = 0 


LASTOOOO 
I.  A STOOO  1 
I.ASTOOO  2 
LAST0003 
LAST0004 
LAST0005 
LAST0006 
LAST0007 
LAST0008 
LAST0009 
LAST0010 
LAST001  1 
LAST0012 
LASTOO  1 3 
LAST0014 
LASTOO  1 5 
LAST0016 
LASTOO 1 7 
LAST001 8 
LASTOO  19 
LAST0020 
I AST0021 
LAST0022 
LA  ST0  02  3 
LAST0024 
LAST0025 
LAST0026 
LAST0027 
LAST0028 
LAST0029 
LAST0030 
LAST003 1 
LAST0032 
LAST0033 
LAST0034 
LAST0035 
LAST0036 
LAST0037 
LAST0038 
LAST0039 
LAST0040 
LAST004 1 
LAST0042 
LAST0043 
I.AST0044 
LAST0045 
LAST0046 
LAST0047 
LAST0048 
LAST0049 
LAST0050 
LAST0051 
LAST0052 
LAST0053 
LAST0054 
LAST0055 
LAST00B6 
LAST0057 
LAST0058 
LAST0059 
LAST0060 
LAST006  1 
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r r. 


CALL  AbLNLV 

NS ROES  = 0 
CALI  E NEM I V 

PRINT  SUMMARY  DATA 

PRINT  7 C 

3 FORMAT  (1H1 ,28  (/)  ,58X,  19HS  E C T I 0 N 
. 1 3HS  U M M A R Y/) 


I V,///,61X, 


PRINT  20,  TBAR, ADD , PA , KSE A R , DT BA R 
) FORMAT  (1H1/1H--/1H-,38X,61HI  V.  A. 
.ATA  SUM  MAR  Y/1H-/1H-/ 


METEROLOGICAL 


LAST0062 
LAST006 3 
LAST0064 
LAST0065 
LAST0066 
LAST0067 
LAST0068 
LAST0069 
LAST007  0 
LAST0071 
LA  STO  07  2 
LAST007  3 
D LAST0074 
LAST0075 


. 1H-  ,28X,38HAVERAGE  ANNUAL  TEMPERATURE  (DEGREES  F) , 32  ( 1 H. ) , F 10. 2/  LAST0076 

. 1H0,28X, 18HAHNUAL  DEGREE  DAYS, 52  (1 H. ) , FI  0. 2/  LAST0077 

. 1H0,28X,36HPRESSURE  ALTITUDE  (HUNDREDS  OF  FEET)  , 34 ( 1 H. ) , F 10 . 2/  LAST0078 
. 1H0,2ex,  LAST0079 

. 45  H A V ERAGE  ANNUAL  WIND  SFEED  (METERS  PER  S ECOND)  , 2 5 ( 1 H . ) , F 1 0 . 2/  LAST0O80 
. 1H0.28X,  LAST008 1 

.47HDA1LY  AVERAGE  TEMPERATURE  VARIATION  (DEGREES  F)  , 23  ( 1 H . ) , F 10. 2/)  LASTO 08 2 

LAST0083 


PFINT  1000 


LAST0084 


3 FORMAT  (1H  1,25X,  85HI  V.  B.  TEMPORAL  DISTRIBUTI  LAST0085 

• ON  FRACTION  SUMMARY/)  LAST0086 

PRINT  1001,  (11,11=1,24)  LAST0087 

1 FORMAT(1H-,48X,40HHOURLY  DISTRIBUTION  OF  AIRCRAFT  ACTIV IT Y/1 H , LAST0088 

. 9H  AIRCRAFT, 2415)  LAST0089 

DO  fcOCO  J J = 1 , NACTYP  LAST0090 

LI  = IACTYP  (JJ)  LAST009 1 

3 PRINT  1002,  ACNAME(LL) , (ACHR(KK,LL)  ,KK=1,24)  LAST0092 

2 FC RMAT  ( 1H  , IX, A8,  1X,24  (1X,F4. 3) ) LAST0093 

PRINT  1003  LAST0094 

3 FORMAT  ( 1H-,  48X,  40HWEEKLY  DISTRIBUTION  OF  AIRCRAFT  ACTIVITY  /1H  , LAST0095 

. 47X,8HAIRCRAFT,  10X  ,7HWEFKDAY,  1 0 X , 7 H W EE  KE  ND ) 1.AST0096 

DC  6CC2  JJ=1, NACTYP  LAST0097 

L1=I ACTYP (JJ)  LAST0098 

L PRINT  1004,  ACNAME(LL) , ( ACDY ( KK , LL) ,KK=1,2)  LAST0099 

4 FOR  MAT  ( 1H  , 47 X , A8 , F 1 5 . 3 , F 1 7 . 3 ) LAST0100 

PRINT  1005,  (11,11=1,12)  LASTO 101 

3 FORMAT  (1H-,48X, 41 H MONTHLY  DISTRIBUTION  OF  AIRCRAFT  ACTIVITY  /1H  , LAST0102 
. 4X , 6HAIRCRAFT, 18, 1 II 10)  LAST0103 

DC  6003  JJ=1, NACTYP  LAST0104 

LL  = IACTYP  (JJ)  LASTO  10  5 

3 PRINT  1006,  ACNAME(LL)  , (ACMO(KK.LL)  ,KK=1, 12)  LAST0106 

6 FORMAT  ( 1H  , 4 X , A 8 , F9 . 3 , 1 1 F 1 0. 3)  LAST0107 

PRINT  1009,  (11,11=1,24)  LAST0108 

3 FCPMAT  (1H-,44X,48HHO'JFLY  DISTRIBUTION  OF  MILITARY  VEHICLE  ACTIV  IT  Y LASTO  1 09 
. / 1 H , 1 0X , 2 41 5)  LA  STO  110 

PRINT  6007,  (VHMLHR (II) , 11  = 1,  24)  LAST0111 

7 FORMAT  ( 1H  , 1 0 X , 24 ( 1 X , F 4. 3)  ) LAST0112 

PRINT  6008  LA  STO  1 1 3 

3 FORMAT  (1H-,44X,48HWEEKLY  DIST RlbUTlON  OF  MILITARY  VEHICLE  ACTI VI T YL ASTO 1 1 4 
. / 1 H ,56X,7HWEEKDAY  , 1 OX , 7HWFEK END)  LAST0115 

PRINT  6010,  (VHMLDY  (I  I)  , 11=1, 2)  LAST0116 

3 FCPMAT  (1H  ,F61.3,F17.3)  LAST0117 

PRINT  6011,  (11,11=1,12)  LA  STO  1 1 8 

1 FORMAT  (1H-,43X, 49 II MONTHLY  DISTRIBUTION  OF  MILITARY  VEHICLE  ACTI VI TLASTO  1 1 9 

.Y/1H  , 12X, IP, 11110)  LASTO 120 

PRINT  6012,  (VKNLNO(II) , 11=1, 12)  LAST0121 

2 FORMAT  ( 1H  , 1 2 X , F9. 3 , 1 1 F 1 0. 3)  LAST0122 

FPINT  6014,  (il, 11  = 1, 24)  LAST0123 
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6014 

6016 

6018 

6020 

6022 

6024 

b026 

6028 

6030 

60  1 


6038 


6040 

6042 

6044 


6046 

(048 

6050 


6052 

6054 


FORMAT  (1H-,44X, 
/ 1 H , 10X,24I5) 
PRINT  6016,  (CV 
FORMAT  (1H  ,10X, 
PRINT  6018 
FORMAT  <1H-,44X, 
/ 1 H , 56X , 7HWEE 
PRINT  6020,  (CV 
FORMAT  (1H  ,F61. 
PRINT  6022,  (II 
FORMAT  (1H-, 43X, 
Y/1H  ,12X,I8,11 
PRINT  6024,  (CV 
FOPMAT  (1H  , 1 2X , 
PRINT  6026,  (II 
FORMAT  ( 1 H - , 45X , 
1H  , 1CX, 2415) 
PRINT  6028,  (CV 
FORMAT  ( 1H  ,10X, 
PRINT  6030 
FORMAT  (1H-,45X, 
1H  , 56  X , 7HNEEK 
PRINT  6032,  (CV 
FORMAT  ( 1 H , F6 1 . 
RINT  6034,  (II 
CRMAT  (1H-, 44X, 
1 H ,12X,I8,11 
.NT  6036,  (CV 
FORMAT  (1H  , 1 2 X , 
PRINT  6038,  (II 
FORMAT  (1H-,4SX, 
1H  , 10X, 2415} 
DC  60  4 C J J = 1 , 7 
PRINT  6042,  FLN 
FORMAT  (1H  , 4 X , A 
PFINT  6044 
FORMAT  (1H-,45X, 
1 H ,49X,4HFUEL 
DC  6046  J J= 1 , 7 
PRINT  6048,  FIN 
FORMAT  ( 1 H , 49X, 
PRINT  6050,  (II 
FORMAT  (1H-,44X, 
/ 1H  , 4X , 4HFUEL 
DC  6052  J J=  1 , 7 
PRINT  6054,  FI. N 
FORMAT  ( 1H  , 4 X , A 


48HHOURLY  DISTRIBUTION  OF  CIVILIAN  VEHICLE 


ABHR  (II)  , 11=1,24) 

24 (IX, F4.3) ) 

48HWEEKLY  DISTRIBUTION  OF 
KDAY,10X,7HNEEKEND) 

ABDY (II) ,11=1,2) 

3,  F17.  3) 

,11=1,12) 

49HMONTHLY  DISTRIBUTION  OF 
110) 

ABMO (II) ,11=1,12) 

F9.3,  11F10.3) 

,11=1,24) 

47HHOURLY  DISTRIBUTION  OF 

E N HR  (II)  ,11  = 1,24) 

24  ( IX,  F4.  3)  ) 

47HWEEKLY  DISTRIBUTION  OF 
DAY, 1 0 X , 7HKEEKE  ND) 

FNDY (II) ,11=1,2) 

3, FI  7.  3) 

,11=1,12) 

48HMONTHLY  DISTRIBUTION  OF 
110) 

ENMO (II) ,11=1, 12) 

F9.3, 11F10.3) 

,11=1,24) 

47HHOURLY  DISTRIBUTION  OF 


ACTIVITYI.AST0124 
LAS TO  12  5 
LASTO  126 
LASTO 127 
LA  STO 1 28 

CIVILIAN  VEHICLE  ACTI V IT Y LA STO 1 2 9 

LASTO 130 
LASTO 131 
LASTO 132 
LASTO  133 

CIVILIAN  VEHICLE  ACTI VI  TLA S TO  1 3 4 

LASTO 135 
LASTO  136 
LASTO 137 
LAST01 38 

ENVIRON  VEHICLE  ACTI VI T Y/LA STO  1 3 9 

LASTO 140 
LA  STO 14  1 
LASTO  142 
LA  STO 1 4 3 

ENVIRON  VEHICLE  ACTI VI T Y/L ASTO  1 4 4 

LASTO  145 
LASTO 146 
LASTO 147 
LA  STO 1 48 

ENVIRON  VEHICLE  ACTI V I T YL ASTO  1 4 9 

LASTO 150 
LASTO 151 
LASTO  152 
LASTO  153 

FUEL  PR OC  E SSI  NO  ACTI VI T Y/L A S TO  1 5 4 

LASTO  155 


PRINT  300 

300  FORMAT  (1H1,40X,59HI  V. 


LASTO  156 

AME(JJ) , (FLHR(II,JJ) ,11=1,24)  LAST0157 

4,4X,24 (IX, F4.  3)  ) LAST0158 

LA  STO 1 59 

47HWEEKLY  DISTRIBUTION  OF  FUEL  PROCESSING  ACTI VIT Y/L A ST 0 1 6 0 
,10X,7HWEEKDAY,10X,7HWEEKEND)  LASTO 161 

LASTO 162 

2)  LA  STO  16  3 

LASTO 164 
LASTO 165 
ACTIVITYLASTO  166 
LA  STO 1 67 
LAST0168 
LASTO 169 
LAST 0170 
LA  STO  17  1 
LASTO  172 
ON  S LASTO  17  3 


A ME (JJ)  , (FLD Y ( 1 1 , J J)  ,11=1, 
A4,P15.3, F17.3) 

,11=1,12) 

48HMONTHLY  DISTRIBUTION  OF 
,4X, 18, 11110) 

AME(JJ) , (FLHO(II,JJ) ,11=1, 
8,F9.3, 11F10.3) 


FUEL  PROCESSING 


12) 


C.  AIRCRAFT 


E M I S S I 


,U  M M A R Y/1H-,42X,54HIV.  C.1  SUMMARY  OF  ANNUAL  EMISSIONS  BY  AILAST0174 


• 

ROR AFT  TYPE/1H  ,53X,29HALL  POLLUTANTS  IN  METRIC  TONS) 

LA  STO 1 7 5 

DC  310  II  = 1 , N ACTYP 

LASTO  1 76 

ID  = I ACT YP  (II) 

LASTO  177 

PRINT  302,  ACNAME(ID) 

LASTO 178 

302 

FORMAT  (1H-/1H0,64X,A8) 

LASTO 179 

PRINT  27,  (FLNAMF  (I)  , 1 = 1 , N PLTS ) 

LASTO  180 

27 

FORMAT  ( 1H0, 15X, 9H0P ERATICN,12X, 6 ( A4,  12X) ) 

LASTO 18 1 

PRINT  26 

LASTO  182 

26 

FORMAT  (1H  ) 

LASTO  19  1 

DO  311  J=1,  15 

LASTO 184 

DC  312  K= 1 , NPLTS 

LASTO 18 r 

100 


jU 
3 1 1 
31 

3 13 

5t3 

310 


28 

25 


EnSS(li,J,K)=EMISS(U,J,K)/1000.0 

ri.IM  31,  CPNAM1  (J)  .OPNAM2  (J)  , (EMISS(  II, J,  K)  , K=1  , NPLTS) 
FCRMAT  (1H  , 13X,A8,A4,2X,  1P6E1 6.4) 

DC  3 1 j J = 1 , NPLTS 

AC  EM  (II, J) = ACL  M (II ,J) /1000.0 

PRINT  5t>  3 , (MINUS  (JK)  ,JK=1,  NPLTS) 

FORMAT  ( 1H  , 34X,6  (A 8 ,8X) ) 

PRINT  31,  CFNAM1  (16)  ,OPNAM2(16) , (AC EM  (II, J)  ,J=1, NPLTS) 
PC  28  J=1,  15 
DC  28  K=1, NPLTS 
TK3SS  ( J , K ) =0.0 
DC  28  1 = 1, N AC ^ Y P 

THISS  ( J , K ) =TMISS  (J,K)  +EMISS(I,J,K) 

PRINT  25 


LASTO  186 
LAST0187 
LASTO 1 88 
LASTO 1 89 
LASTO  190 
LASTO 191 
LAST0192 
LASTO  19  3 
LASTO 194 
LAST0195 
LASTO 196 
LAST0197 
LAST0198 
LASTO 1 99 


FCRMAT  (1H  1 , 37x,  63HI V.  C. 2 SUMMARY  OF  ANNUAL  EMISSIONS  FOR  ALL  AIRLAST0200 


30 


400 


.CRAFT  IT  C MCDES/1H  ,53X,29HALL  POLLUTANTS  IN  METRIC  TONS/) 
PRINT  27,  (PLNAME(I) ,1=1 , NPLTS) 

FRINT  26 
DC  30  1=1,15 

PRINT  31,  0FNAM1  (I)  ,0PNAM2  (I)  , (TMISS (I,J)  ,J=1, NPLTS) 

DC  30  J= 1 , N FLT  S 

SUMEMI  ( 1 , J ) = S UME  MI  (1,J)+TMISS  (I,J) 

FRINT  563,  (M  T NUS  (JK)  , JK=  1 , NPLTS) 

FRINT  31,  OPNAM  1 (16)  ,0PNAM2  (1 6)  , (SUMEMI  (1  ,J)  ,J=  1 , NPLTS) 


LAST020  1 
LAST0202 
LAST0203 
LAST0204 
LAST0205 
LAST0206 
LA  STO  207 
LAST0208 
LAST0209 
LASTO  210 
LAST021  1 
S U LAST02 1 2 


4 10 


40  1 


4 11 


135 


136 


PRINT  400 

FCRMAT  (1H1,40X,  57HI  V.  D.  AIRBASE  EMISSION 
.M  M A R Y/1H-,37X,63HIV.  D.  1 SUMMARY  OF  ANNUAL  EMISSIONS  FROM  GR OLAST02 1 3 
.UND  MOBILE  SOURCES/ 1 H ,S3X,29HALL  POLLUTANTS  IN  METRIC  TONS/)  LAST0214 

PRINT  27,  (FLNAME(I)  ,1=1, NPLTS)  LAST0215 

PRINT  26  LAST0216 

DC  410  1=15,20  LASTO  217 

PRINT  31  ,CPNAM3  (I) , CPNAM4 (I) , (TOTEM (I ,J)  , J=  1 , NPLTS)  LAST0218 

DC  410  J=1, NPLTS  LAST0219 

SUMEMI  (2, J) = SUM  EM I (2, J) *TCTEM  (I,J)  LA STO 2 20 

PRINT  563,  (MINUS(JK) ,JK=1, NPLTS)  LAST0221 

PRINT  31,  CPNAM1  (16)  ,OPNAM2(16) , (SUMEMI  (2, J)  ,J=1, NPLTS)  LAST0222 

FRINT  401  LAST0223 

FORMAT  (1H-/1H-,  38X,60HIV.  D.2  SUMMARY  OF  ANNUAL  EMISSIONS  FROM  AILAST0224 
■ REASF  F AC  1 1 IT  I ES/ 1 H , 53X,29HALL  POLLUTANTS  IN  METRIC  TONS/)  LAST0225 

PRINT  27,  (PLNAME(I)  ,1  = 1 , NPLTS)  LAST0226 

PRINT  26  LAST0227 

DC  411  1=8,14  LAST022 8 

PRINT  31.CPNAM3  (I)  ,OPNAM4  (I) , (TOTEM (I ,J) ,J=1, NPLTS)  LAST0229 

DC  411  J = 1 , N FLT  S LAST0230 

SUMEMI  (3, J)  = S U M E M I (3,J)+TOTEM ( I , J ) LAST0231 

PRINT  563,  (MINUS (JK) ,JK=1, NPLTS)  LAST0232 

PRINT  31,  OPNAM1  (16) ,CPNAM2(16)  , (SUMEMI  (3, J)  ,J=1, NPLTS)  LAST0233 

PRINT  135  LASTO  234 

FCRMAT  (1H-/1H-,  35X,  66HIV.  D.3  SUMMARY  OF  ANNUAL  EMISSIONS  FROM  EVLAST0235 
.AFORATIVE  H Y DROC AR BON S/ 1 H ,56X,25HALL  LOSSES  IN  METRIC  TONS/1H-,  1LAST0236 
. 5X, 9HCFERATICN,  10X,7HWORK1NG,8X,10HF1XED  ROOF , 4X  , 1 4HFLO ATI NG  ROOFLAST0237 


, 'XjRHSPILLAGE, 9X,5HOTHEB  /1H 
36X,4HICSS,7X, 14HBREATHING  LO S S, 2 X, 1 4 HBRE ATHI NG  LOSS 
PRINT  136,  (TOTEVP(I)  ,1  = 1, 10) 

FCRMAT (180, 13X, 12HSTCRAGE  TNKS , 2 X 1 P3E 16. 4/1 H , 
13X,7HFILLING, 13X,E10.4,38X,E10.4/1H  , 

13X , 12HPET  STOR  TKS , 2 4 X ,E 10.  4 , 6 X , E 1 0 . 4/1 H , 

13X, 12HTNK  TRUCK  PK , 24X , E 10. 4/ 1 H , 

13X, 11HVEH  PARKING, 25X,E10.4/1H  , 

13X,6HCTHEPS,78X, E10. 4) 

DC  420  1=1,10 


) 


LA  STO  2 38 
LAST0239 
LAST0240 
LA  STO  24  1 
LAST024  2 
LAST024  3 
LAST0244 
LAST0245 
LAST0246 
LAST0247 
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TKCEVl=THCEVL+TOTEVP(I) 

420  SUMEMI  (3,2) =SUMEMI (3,2) ♦TOTEVP (I) 

PRINT  432 , THCEVL 

432  FORMAT  (1H-, 13X,SOHTOTAL  EMISSIONS  FROM  EVAPORATIVE  HYDROCARBONS 
. , 1FE10.4,13H  METRIC  TONS  ) 

PRINI  402 

402  FORMAT  (1H  1 , 40X,  57HI  V.  E.  ENVIRON  EMISSION  S U 
.H  M A R Y/ 

. 1H- , 4 3 X , 50 HIV.  E.1  SUMMARY  OF  ANNUAL  EMISSIONS  FROM  ENVIRONS/ 

. 1 H ,54X,29HALL  POLLUTANTS  IN  METRIC  TONS) 

PRINT  27,  (PLNAME(I)  ,1=1, NPLTS) 

PRINT  2t 
DC  4U  1=1,7 

PRINT  31,CPNAM3  (I)  ,OPNAM4  (I)  , (TOTEM  (1  , J)  , J=  1 , NPLTS) 

DC  412  J=1, NPLTS 

4 12  SUMEMI  (4  , J ) =SUMEMI  (4  , J ) + TOTEM (I , J) 

PRINT  563,  (MINUS(JK) ,JK=1, NPLTS) 

PRINT  31,  CPNAM1 (16) ,OPNAM2(16) , (SUMEMI  (4, J)  ,J=1, NPLTS) 

PRINT  403 

403  FORMAT  (1H  1 , 50X,  35HI  V.  F.  TOTAL  SUMMARY/ 

. 1H-,48X,40HIV.  F. 1 SUMMARY  OF  ALL  ANNUAL  EMISSIONS/ 

. 1 H , 5 3X, 29HALL  POLLUTANTS  IN  METRIC  TONS) 

PRINT  27,  (PLNANE (I)  ,1=  1, NPLTS) 

PRINT  26 
DC  413  1=1,4 

PRINT  31,CPNAM5(I)  , OP  NAM6 (I)  , (SUMEMI (I ,J)  , J = 1 , NPLTS) 

DO  413  J=1, NPLTS 

413  TSUMEM  (J) =TSUMEM(J)  + SUMEMI (I,  J) 

PRINT  563,  (MINUS  (JK)  ,JK  = 1 , NPLTS) 

PRINT  35,  (TSUMEM(I) ,1=1, NPLTS) 

35  FORMAT  (1H  , 13X , 1 1 HGRAND  TOTAL , 3 X , 1P6 E 16 . 4) 

DC  414  1=1,4 
DO  414  J=1  , NPLTS 

414  SUMEMI  (1, J)  = (SUMEMI  (I  ,J) *100.0) /TSUMEM (J) 

PRINT  404 

404  FORMAT  (1H-/1H-, 41 X,  53HIV.  F.2  EMISSION  PERCENTAGE  BREAKDOWN  OF 
.1  SCURCES) 

PRINT  74,  (PLNAME  (I)  , 1 = 1 , NPLTS) 

74  FORMAT  (1H0,15X, 9 H OPERATION, 15X,5(A4,1iX)  , A 4) 

PRINT  26 
DC  415  1=1,4 

415  PRINT  431 ,CENAM5(I)  ,OPNAMfc  (I)  , (SUMEMI  (I, J)  ,J=1, NPLTS) 

431  FORMAT  ( 1H  , 1 3 X , A 8 , A 4 , 8 X , 6 (F  1 0 . 3 , 6 X)  ) 

RETUFN 

END 


LAST0248 
LAST0249 
LAST0250 
I SLAST025 1 
LAST0252 
LAST0253 
LAST0254 
LAST0255 
LAST0256 
LAST0257 
LAST0258 
LAST0259 
LAST0260 
LAST026  1 
LAST0262 
LAST0263 
LAST0264 
LAST026  5 
LAST0266 
I.AST0267 
LAST026  8 
LAST0269 
I.AST0270 
LAST0271 
IAST0272 
LAST027  3 
I.AST0274 
LAST0275 
LAST0276 
LAST0277 
LAST0278 
LAST0279 
LAST0280 
LAST029  1 
LAST0282 
LA  STO  28 3 
LAST0284 
ALLAST0285 
LAST0286 
LAST0287 
LAST0288 
LAST0289 
LAST0290 
LAST029  1 
LAST0292 
LAST0293 
L A STO  29  4 
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SUBROUTINE  LETTER 


Purpose: 

To  construct  a four  line  title  page  in  large  print. 

Input : 


The  title 


Output : 


None 


Sub rout ines 
Called: 


CIIARAC 


SULFCUTINE  LET  TER 

L 

C ii:!S  rOL'IINE  ?RI  NTS  A FOUR  LINE  TITLE  PAGE  IN  LANGE  PAINT 

C THE  Iii-SI  2 LINES  CONTAIN  AOaM  SOURCE  INVENTORY  AND 

C THE  SECOND  Z LI NES  THE  IITLF  INPUT  TO  THE  FROGRAM 
t 

DIM  ENS  luN  1T1TLE(12) , LINE1  (12)  .LINE  2 (12) 

DATA  LINE1 , LI NE2  / 

1 1HA,  IhC,  1HA,  1HH,  1H  , 1 HS, 1 HO , 1 H U , 1 H h , 1 HC , 1 ri E , 1 H , 

2 Itil  ,1HN,1HV,  1HE.1HN,  1HT,  1HU,  IHh,  1HY,  1H  ,1H  ,1H  / 

C 

DC  200  IK=1  ,12 

200  ITI1LF  (IK) =LINE1  (IK) 

CALL  CHARAC  ( ITITLS) 

PFINT  6002 

DO  201  IK =1,12 

201  III  TIE  (IK)  =LINL2  (IK) 

CALL  CHARAC  (I1ITLE) 

PRINT  6002 

C 

DO  100C  L = 1 , 2 

READ  (5,100)  JITITLE  (I)  ,1=1 ,12) 

100  FCFK  AT  ( 1 2 A 1 ) 

6002  FCRKAl(IH-) 

CALL  CRAHAC (ITITLE) 

PRINT  6002 
1000  CONTINUE 
RETURN 
END 


LETTROOO 
LETTROO 1 
LETTR002 
LETTF003 
LETT  P004 
LE  TTR005 
LETT  P006 
LETTR007 
LETTR008 
LETTR009 
LETT  PO 1 0 
LETTR01  1 
LETTR012 
LETTPO  1 3 
LETTR014 
LETTR01 5 
LETTR016 
LETTR017 
LETTF018 
LETTR01  9 
LETTR020 
LETTR021 
LFTTP022 
LETTR023 
LETT  PO  24 
LETTR025 
LETTP026 
LETTR027 
LETTF028 
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PROGRAM  MAIN 


Purpose : 

1.  Primary  driver  for  various  subroutines. 

2.  Output  to  master  source  tape  part  of  the  data 
needed  for  time  period  emission  calculations. 

3.  Print  certain  input,  default  and  calculated 
data  for  diagnostic  purpose. 

Input : 

Annual  meteorological  data. 

Auto  and  truck  emission  factor  control  cards. 

Output: 

1.  Write  data  on  master  source  tape. 

2.  Print  automobile  and  truck  emission  factors. 

Subroutines 

Called: 


FIRST,  VEFCTR , ACFMIV,  I AST. 
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PROGRAM  MAIN 


107 


n r 


c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


c 

c 


THIS  PROGRAM  IS  THE  MAIN  DRIVER  FOUTINE.  IT  BEADS  THE 
KETECRCICGICAL  DATA  ANt  THE  AIRBASE  VEHICLE  AGE  DISTRIBUTION  DATA 
ANC  DIRECTS  THE  CALLS  TO  SUBROUTINES  TO  CALCULATE  EMISSIONS 
FCF  THE  A I PEASE  AND  ITS  ENVIRONS.  IT  WRITES  DATA  ON  THE 
MASTER  SOURCE  TAPE  AND  PRINTS  CERTAIN  AIRCRAFT  PARAMETERS  AND 
AIRBASF  VEHICLE  INFORMATION 

RF  A L*  8 AC  NAME, MON  AM  1 , T HN AM E, EG NAME, MINUS 
REAL  INDSPD, LUEMFC 
INTEGER  ENGNO 

C'CMMC  N /AC  ED  El/  ACEMFC  (SO,  10,  6)  , ACNA  ME  (50)  , EGNAME(50)  , ENGNO ( 50, 2)  , 
. ASCNT1  (50) , ASC NT2  (50)  ,TXISPD(50)  ,LNDSPD(50)  ,APSPD1  (50)  ,COHT1 (50)  , 
. APSPC2  (50)  ,TCS  PD (50)  ,COSPD1 (50)  ,COSPD2  (50)  ,SRTUPT  (50)  , DSC  NT  t (50)  , 
. EGC  H KT (50)  , SHT  DNT ( 50 ) ,DSCNT2(50)  , A PP HT , APPHT2  (50)  ,CLMBHT,TOWT (50) 
COMMON  /ACEDB2/  N AC TY P , N R N W YS , NPK AR , I EG E LG, I ACTY P (8)  , ANN  ARR ( 8)  , 

. ANNCFE(8)  , ANNTGC (8) , ARRFCN (2  4,8, 6)  ,DEPFCN  (24,8,6) ,TGO(3, 4,8), 

. DISRNW  (6)  ,RNWY  (7,6) , IUSWD  (20,6)  ,RNWYAR  (8, 6)  .RNWYDP  (8,6)  ,ACFUEL (8) 
. , ARELVT  (B)  ,DPE  LVT  (8)  , ACS  PI L (8)  , ARSV EM  (6 , 8 , 5) , DPSVEM  (6,8,5)  , 

. NIBTT  (6)  , NIBS  EG  (8,6)  , 1 1 BS EG l 1 b, 8 , 6)  , IDIBTW  (8 , 6)  , TT A R FR  (8 , 8 , 6)  , 

. NOBTT  (6)  , NOBSEG  (8,6)  , I OBS EG ( 1 6 , 6 , b)  , IDOBTW  (8,6)  , TT DP FR  (8 , 8 , 6)  , 

. NFA S C (6) ,IDFFKA(6) ,PARFA(6,3,3) ,IDIBPA(8,6),IDOBPA{8,6), 

. NLSEGS , ACLNSG  (12,25) 

COMMON  /EGEDB1/  MO N AM  1 ( 1 0)  ,TH N A ME  (4)  , MO N AM2  ( 1 0 ) , I D AC EG ( 50 ) , 

. IACAtE  (50)  , EGFF  (4 , 50)  ,IFGABF (50)  ,IDRR  (50) 

COMMON  /EMFDB1/  EG E M FC  (6 , 4 , 50)  , PLNAME (6)  , PPEMFC  (22 , 6)  ,EMFCIN(5,6)  , 
. T E EMEC  (6)  ,LUEMFC  (9,6)  ,ALPHA(7)  , BET  A (7)  , FLDENS  (7)  ,FLNAME(7)  , 

. AFEMEC  (2,6,6) , ATEMFC  (2, 6,6)  .CSEMFC (6,6)  , AFCSEM (6,6)  , AFSOAK, 

. ATSOAK,AFBRTK, ATBRTH  , FLTFCT ( 7)  ,FIXFCT(7)  ,WRKFCT(7) 

CCMMCN  /ANNMF.T/  T B AR  , A DD , P , P A , WS  B AR  , DTB  AR  , A MDB  A R 
CCMMCN  /DEFALT/  NPL TS , IT AP E , M I NUS  (6)  , 

. ACINDY, ACLNDZ, TCVSDF ,TCHBDF, TCHODF ,T  CD YDF , TCDZ DF , RUDSDF, RUTSDF, 

. FUVSDF,RUHEDE,  R'J  HODF  , R'J  DY  DF,  RU  DZ  DF,  TFD7DF,  TFCDF  , TFHBDF  ,TFHODF , 

. EGCKDY,EGCKDZ, ACMLPL, ARDSDZ, ATDSDY, ATDSDL , TCDSDF , T CTS DF , F PDFLT , 

. TDDFIT.RFDFLT .SFDFLT  , P F DF LT , T FDF LT , T FD Y DF 

COMMON  /DSTRET/  ACMO ( 1 3 , 50) , A C D Y ( 2 , 50 ) , ACH R (24 , 50)  , V HM LMO ( 1 3 ) , 

. VHM1DY  (2)  , VHMLHR  (2  4)  ,CVAEMO( 1 3)  , CVABDY  (2)  ,C V A B HR  ( 2 4)  ,C VEN HO  ( 1 3 ) , 

. C VEND Y (2 ) ,C VEN HR (2  4)  , FLMC  (13,7)  , FLDY  (2,7)  ,FLHR(24,7) 

CCMMCN  /AUTOS/  XEM I TT  (2 , 6 , 6)  , YCLDST  (6 , 6 ) , S 0 AK , BRT H , I AR EA , 

. IHDV,IAAT,IYFAR 

NAMELIST  / EGDAT  A/  EGN AM E , EGFF , I EG ABF, EGEMFC, ACNAM E, I D AC  EG , I AC AB F, 

. IDRR 

NAMELIST  /DSDATA/  ACMO  , ACD Y , AC  HR , VHMLMO, VHMLDY , V HML HR , CVABMO , 

. CVAECY, CVAEHF,CVEN MO, OVEN DY,CVENHR,FLMO, FLDY, FLHR 
NAMELIST  /ACD AT  A/  A PP HT , CL MBHT , ENGNO , DSC NT  1 , DSCNT 2 , APSPD1 , APSPD2 , 

. APf HT2, ASC NT  1, ASC NT 2 .COSPD1 , COSP D2 , COHT 1 , T XI SPD , LN D SPD , TOSPD , 

. SRTUPT,EGCHKT,SHTDNT,TCKT 

D 
D 


JIMENSICN  VHTILE  (4 , 3) 

5 AT A VHTILE  /4HLCW  , 4 H ALTI , 4HTUDE, 4H 
4HHIGH , 4H  A LT , 4H I TUD, 4HE 
. 4HCALI,4HEGEN,4HIA  ,4H 

KFAl*8  NHIL,NCIV 

DATA  NMIL,NCIV  /8H MI  LI T A P Y , 8HC I V I LI  A N/ 


/ 


IEGFIG=0 


CALL  FIRST 

DATA  SET  3 METEOROLOGICAL  DATA 


MAI N0000 
NAIN0001 
HAIN0002 
M A IN  000  3 
HAIN0004 
MAIN0005 
MAIN0006 
MAIN0007 
MAI N0008 
MAIN0009 
MAI  NO  0 1 0 
MAIN001  1 
MAIN0012 
MAIN0013 
MAIN0014 
MAIN0015 
MAIN0016 
NAIN0017 
HAIN0018 
MA IN0019 
MAIN0020 
MAIN002  1 
MA IN0022 
MAI  NO 02  3 
MAIN0024 
MAI N0025 
MAI N0026 
MAIN0027 
MAIN0028 
MAIN0029 
MAIN0030 
MAI N003 1 
MAIN0032 
MAIN0033 
MAIN0034 
MAI N0035 
MAIN0036 
MAIN0037 
MAIN0038 
MAINOO  39 
MAIN0040 
HAIN0041 
MAI N0042 
MAIN0043 
MAIN0044 
MAIN0045 
MAIN0046 
MAI N0047 
M AIN0048 
MAI N0049 
MAIN0050 
MAIN005  1 
HAIN0052 
MAIN0053 
MAIN0054 
HAIN0055 
MAI N0056 
HAIN0057 
MAIN0058 
MAIN0059 
MAI N0060 
MAIN0061 
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n n n non  non 


READ  867b,  AB1234 
6676  FORMAT  (A  1 ) 

READ  10,  TBAR,ADD,PA,WSBAR,DTPAR 
10  FCRBAT  (6F8.2) 


CALL  ACEMI V 
WRITE  AIRCRAFT 


A ON  OUTPUT  TAPE 


(ACDY  ( K , I ) , K = 1 , 2) 


WRITE  (IT A PE)  Tr  i.  ADD,PA,WSBAR,DTBAR 

WRITE  (IT APE)  VTLHO, V HB L DY , V HBL HR , C V ABMO , CV A BD Y , C V ABHR , CV EN HO , 
. CVENDY,CVENHR,<LMO,FLDY,FLHR 
WRITE  (ITAPE)  NIBTT,NIESEG,IIBSEG,NOBTT,NOBSEG,IOBSEG 
WRITE  (ITAPE)  IDOBTW, ID1ETW,IDPRKA,PAREA,IDIRPA,ID0BPA, NPASQ 
WRITE  (ITAPE)  RNWY,IUSWD,DISRNW 

WRITE  (ITAPE)  ( (ACLNSG  (II,  JJ)  ,11=  1,  12)  , JJ  = 1 ,NLSEGS) 

DC  40  J = 1 , NACTY P 
I=IACTYP (J) 

WRITE  (ITAPE)  (ACBO(K,I)  , K=  1 , 1 3) 

. (ACHR  (K, I)  , K = 1 ,24) 

WRITE  (ITAPE)  ANNARR(J)  , ANNDEP(J)  , ANNTGO  (J)  , AC FUEL (J)  , A RE  L VT (J) 

. EPELVT(J)  ,ACSPIL(J)  ,IACTYP(J) 

WRITE  (ITAPE)  DSCNT1 (I) , DSC NT  2 (I)  ,ASCNT 1 (I) ,ASCNT2(I)  , 

. TXISPD  (I)  ,LNDSPD(I)  , APSPD1  (I)  , APSPD2  (1)  ,-TCSPD  (I)  ,COSPD1  (I)  , 

. COSPD2  (I)  ,SRTUPT  (I)  , EGCHKT (I)  , SHTDNT  (I)  ,TCWT  (I),APPHT2(I), 

• CCHT1  (I)  , I CRR  (I) 

WRITE  (ITAPE)  ( (ARSVEB  ( K , J,L)  , DPSVEB(K,J,L)  , L= 1 , 5)  , K = 1 , 6)  , 

. ((TTARFP  (K,J,L)  ,TTDPFR(K,J,L)  ,K  = 1,8)  ,L=1 ,6) 

WRITE  (ITAPE)  (ENGNO  ( I,L)  ,L= 1 , 2)  , ( ( AC Efl FC  (I , K , L)  , K = 1 , 1 0)  ,L=1  ,6) 
WRITE  (ITAPE)  ( (TGO  (K  ,L,  J)  ,K=  1 ,3)  ,L=  1 ,4) 

40  CONTINUE 

END  FILE  ITAPE 

CONVERT  ANGIES  TO  DEGPEES  FCR  PRINT 
DC  440  1=1,50 

A SC  NT  1 (I)  =ASCNT1 (I) / 0.0174533 
ASCNT2  (I) =ASCNT2 (I) / 0.0174533 
DSC NT  1 (I) =DSCNT1  (I)/  0.0174533 
DSCNT2  (1) = ESC NT 2 (I) / 0.0174533 
440  CONTINUE 

PRINT  AIRCRAFT  LTO  PARABETERS 
PRINT  6060 

0060  FORMAT  ( 1H1  , 43X,47HI  . E.3  AIRCRAFT  LANDING  AND  TAKEOFF  PARABETE 
FRINT  6062 

6062  FORBAT  (1H-/10H  AI RCR AFT  ,9X  , 1 0 HT A XI  S PEED, PX , 1 3HLANDING  SPEED, 6 
. 13HT  AKECFF  SPEED, 3 X , 1 8H I DLE  START  UP  TIB E , 2 X , 1 7 HENGI NE  ChECK  T 
. , 2 X , 19HIDLE  SHUT  DOWN  TIHE/1H  , 

. 3X,41iNABE,13X,7ll(KB/HR)  , 1 2 X , 7 H (K  B/H  R ) , 1 2 X , 7 H (K  H/H  R)  ,9X, 

. 12H(HIN/ENGINE),7X, 12H( BIN/ENGINE)  ,7X,  12K  (BIN/ENGINE) ) 

DC  6C64  J J = 1 , N ACT  YP 
II=IACIYP (JJ) 

t064  PRINT  6066,  AC N ABE ( II ) ,T XI SPD ( 1 1)  , L N DSPD  ( 1 1)  ,TOSPD  (I I)  , 

. SRTUPT(II)  , EGCHKT  (II)  , SHTDNT (II) 

60tb  FORBAT  (1H  , 1 X , A 9 , 1 P6 E 1 9. 4) 

PRINT  6070 

6070  FORBAT  (1H-/10H  AI RCR AFT , 6X, 1 6 H APPRO ACH  ANGLE  1,3X, 

. 16H APPROACH  ANGLE  2 , 3 X , 1 6H AP PROACH  SPEED  1,JX, 

. 1 6 1 A I f RC  AC  H SPEED  2 , 3 X , 1 7 HAP PROACH  HEIGHT  2,3X, 


BA  I N 0062 
BAI N0063 
BAIN0064 
BAI N0065 
B A I N 0 06  6 
BAI N0067 
BAIN0068 
B AI  NO  06  9 
BAIN0070 
BAI NO  07  1 
HAIN0072 
BAIN0073 
BAI N0074 
BAIN0075 
BAIN00T6 
BAIN0077 
BAI N0078 
BA  I NO  079 
BAIN0080 
BAI N0091 
BAIN0082 
, BAIN0083 
BAIN0084 
BAIN0088 
BAIN0086 
BAIN0087 
BAI N0088 
BAIN0089 
BAIN  009  0 
BAIN0091 
BAIN0092 
B A I N 009  3 
BAI N0094 
BA IN0095 
BAI N0096 
BA  I N 009  7 
MAI N0098 
BA  I N 0099 
MAINO  100 
BAIN0101 
MAINO 102 
BAINO  103 
MAI  NO  104 
MAIN0105 
BAINO 106 
MAI  NO  107 
RS)  BAIN0108 
MAI  NO  109 
X,  MAIN0110 
IMEBAINO  1 1 1 
MAI  NO  112 
MAINO  1 1 3 
MAI  NO  1 1 4 
BAIN0115 
BAIN0116 
M A I NO  1 17 
BAIN01 IP 
BAI NO  1 19 
MAIN0120 
MAT  NO  12  1 
BAI NO  122 
B A I N 0 1 2 '! 


no 


nnn  n r.  n n on 


r 


. 1*4  hi  AKtCF  F WFIGHT/1H  ,3X,4HNAME,  12X , 9H  (DEGREES)  , 1 0X  , 9H  (DEGREES)  , MAIN0124 
. 11X,7H(KH/HR),12X,7H(KN/HP),13X,4H(KH),12X,10H{1000  IBS))  HAIN0125 

DC  t072  J J = 1 , 1 A CT  Y P HAIN0126 

1I  = 1ACTYP  (JJ)  MAI  NO  1 27 

6 072  FEINT  6066  , AC N AME  (I I ) ,D SCNT1  ( II)  , DSC NT2  (II)  , APSP D 1 ( 1 1)  , MAIN0128 

. AFSFE2  (II)  , AFPHT2 (II)  ,TCWT (II)  NAIN0129 

PEI  NT  7C00  MAI  NO  1 30 

7000  FORMAT  (1H-/10H  A I RC R A FT , 8X , 1 3 HC L I Mb  ANBLE  1 ,6X,  13HCLIMB  ANGLE  2,  MAIN0131 

. 6X  , 1 JHCL1 ME  SPEED  1 , 6 X , 1 3 HCL I MB  SPEED  2, 5X , 1 4HCLI MB  HEIGHT  2/  HAIN0132 
. 1H  , 3X,4HNAMF  , 12X,9H  (DEGREES)  ,1QX,9H  (DEGREES)  , 1 IX, 7H  (K1/HR)  ,12X,  MAIN0133 
. 7H  (KM/HR)  , 13a, 4H  (KM) ) MAIN0134 

DC  70C 1 J J = 1 , N ACT Y P MAI  NO  1 3 5 

II  = IACTYP  (JJ)  MAIN0136 

7001  PRINT  6066  , ACNAME ( II)  , ASCNT1 ( 1 1)  , ASC NT2  (II)  .C0SPD1  (II)  , MAIN0137 

. CCSFD2  (II)  ,CCHT1  (II)  MAIN0138 

FFINT  7010  MAIN0139 

7010  FORMAT  (1H-/10H  AI  RCE  A F I , 1 OX  , 8 HA  I Rcit  AFT  , 1 2X  , 6HENGINE  , 1 2 X , MAIN0140 

. SHNUMBER  OF , 1 1 X , 6H AFTER- , 1 2 X , 8H RUN  ROLL/1 H , MAIN0141 

. 3X,4HEAME, 15X, 2HID, 17 X,2H ID,  1 5X , 7HENG1 NES, 12X,6H BURNER,  MAI  NO  142 

. 12X,EHEQUATICN)  HAIN0143 

DC  7020  JJ=  1 , N ACTYP  MAIN0144 

II=IACTYP (JJ)  HAIN0145 

7020  PFINT  7C21,  ACN AM E ( 1 1)  , 1 1 , 1 DACEG ( II)  , ENGNO  (II , 1)  , I ACABF (II)  , HAIN0146 

. IDFR(II)  HA INO 147 

7021  FORMAT  (1H  , IX, A8, 115, 4119)  HAIN0148 

EFINI  6076,  ArPHI.CLMEHT  MAIN0149 

6076  FORMAT  ( 1 H- , 32 H A LTI T UD E AT  START  OF  APPROACH  = ,1PE10.4,12H  K ILOH EHA I N0 1 50 
.TEES  //  1X,30HALT1TUDE  AT  END  OF  CLIMbOUT  = ,E10.4,11H  KILOMETERS)  MAIN0151 

MAI  NO  152 

FEINT  EMISSION  VALUES  FOR  A I RC  P AFT  HAIN0153 

MAI  NO  1 54 

PEINT  510  NAIN0155 

510  FCRMAT  (1H1,44X,47HI.  C.  INTERIM  CALCULATION  S/HAIN0156 

. 1H-,30X,75HI.  C. 1 AIRCPAFT  EMISSION  FACTORS  BY  AIRCRAFT  TYPE  (KGMAIN0157 

. FER  ENGINE  PER  HOUR)/)  HAIN0158 

DC  7 J J = 1 , N ACT  YP  MAI  NO  159 

1 = 1 ACTYP  (JJ)  HA  I NO  160 

PFINT  511,  (A6NAME(  I)  , I, EGNAME  (IDACEG  (I) ) ,IDACFG (I)  , ENGNO (I, 1)  , MAIN0161 
. (PLNAME  (K)  ,K=  1 ,NPLTS) ) MAIN0162 

511  FCRMAT  (1H-/1H0, 1 3X, A8,6X,4HID  = , I 3 , 6 X , 9 H E NGI N E = , A 8 , 6X , 12HENGINE  HAIN0163 


512 

7 


90 


ID  = ,13, 6X  , 19HNUMBEP  CF  ENGINES  =,12,  / 1 H- 
. 16X, 6H  (MODE)  , 15X,6  (A4, 12X) ) 

DC  7 J=1, 10 

IF  (ACEMFC  (I, J,  1)  . LE. 0.0. AND. ACEMFC (I, J ,2)  . LE. 0. 0)  GO  TO  7 
PEINT  512,  (MONAM1  (J)  , MONAM2 (J)  , (ACEMFC  (I ,J,K)  , K=  1 , NPLTS) ) 
F C PM AT  ( 1H  ,13X,A8,A4,2X,  1P6E1 6. 3) 

CONTINUE 


PRINT  90 

FCRMAT  (1H1 ,28  (/) ,58X,  19HS  E C T I 0 N 
, 53  X , 29H A IRBASE  SOURCES/) 


I l.///, 


DATA  SET  11  AI R E AS  E VEHICLE  AGE  DISTRIBUTION 
READ  e676,  AB1234 

READ  11,  IAREA, IHDVML, IHDVCV, IAATML,I AATCV,IYEAR 
1 1 FCRMAT  (2014) 

IE  (IHDVML. EQ . 0)  IHDVML=2 
IF  (IHDVCV. EQ.O)  IHDVCV=2 

PRINT  AIRBASE  VEHICLE  AGE  DISTRIBUTION 


MAI  NO  164 
MAIN0165 
MAINO  166 
MAI  NO  167 
NAIN0168 
MAI  NO  1 6 9 
HAIN0170 
MAI  NO  1 7 1 
MAIN0172 
MAINO  17  3 
MAI  NO  17  4 
MAIN0175 
MAI  NO  176 
MAINO 177 
MAIN0178 
MAI  NO  179 
NAIN0180 
MAI  NO  19  1 
MAINO  182 
MAIN0183 
MAI  NO  1 84 
MAINO  185 
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nnn  n n n nor 


r — 
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PRINT  200,  (VHTUE(I,I*REA)  ,1=1,4)  MAIN0186 

200  FORMAT  (1H1,18X,99HI  I.  A.  VEHICLE  AGE  D I S T R 1 B NAIN0187 
-U  T I C N AND  EMISSION  FACTOR  S/,  HAIN0188 

. 1H-,46X,41HII.  A . 1 AIRBASE  VEHICLE  AGE  DI STR I BUTI ON/ 1 H-/  NAIN0189 

. 34H  VEHICLE  EMISSION  AREA  IS  SET  FOR  ,4A4/  NAIN0190 

. 1H-,  10X,28HMILITARY  VEHICLE  INFORMATION/)  MAIN0191 

IfcDV=IHDVML  MAIN0192 

I AAT  = I A ATMl  MAIN0193 

IF  (IHDV.EQ.1)  PRINT  203,NMIL  MAIN0194 

20 3 FORMAT  (1HO,b7HNO  GROSS  VEHICLE  WEIGHT  DEPENDENCE  FOR  HEAVY  DUTY  G AM A I N 0 1 9 5 

.SCLINF-EOWEREL  ,A8,37H  VEHICLES  EMISSION  FACTOR  CALCULATION)  MAIN0196 

IF  (IHDV.EQ.2)  PRINT  204,NMIL  MAIN0197 

204  FORMAT  ( 1H0 , 28HHEAVY  DUTY  GASOLINE  POWERED  ,A8,63H  VEHICLE  EMISS1 ONM A I N 0 19 8 


EAC1CRS  ARE  DEPENDENT  ON  GROSS  VEHICLE  WEIGHT) 

IF  (I  A AT  . EQ  . 0)  PRINT  201  ,NMIL 

201  FORMAT  (1H0,A8,42H  VEHICLE  AGE  DISTRIBUTION  SUPPLIED  BY  USER) 
IF  (IAAT.EQ.1)  PRINT  202.NMIL 

202  FORMAT  (1H0, 43HNATIONAL  VEHICLE  AGE  DISTRIBUTION  USED  FOR  ,A8, 
. 9H  VEHICLES) 

CALL  SUBROUTINE  VEFCTR  FOR  MILITARY  VEHICLES 

CALI  VEFCTR 
DC  21  1=1,6 
DC  21  J=1 ,6 

AFCSEM  (J,I) =YCLDST (0 , 1 ) / 1000 . 0 
DC  21  K=1 ,2 

21  AEEMEC  (K,J,I)=XEMITT(K,J,I)/1000.0 
AFSCAK=SCAK/1000.0 
AFBRTH=BRTH/1000.0 
IHDV=IHEVCV 
I A AT  = 1 A ATC  V 
FEINT  7 CO 

700  FORMAT  (1H-/, 1H 
IF  (IHDV.EQ.1) 

IF  (IHDV.EC.2) 

IF  (IAAT.EQ.0) 

IF  (IAAT.EQ.1) 


CALL  SUBROUTINE  VEFCTR  FOR  CIVILIAN  VEHICLES 

CALL  VEFCTR 
DC  22  1=1,6 
DC  22  J=1,6 

CSEHEO  (J, I) =YCLDST (J, I) / 1000. 0 
DC  2 2 K = 1 , 2 

22  ATE MFC  ( K, J, I) = X EM  ITT ( K , J , I) /I  000. 0 
ATSGAK=SOAK/1 000.0 
AIBFTH=ERTH/ 1000.0 

PRINT  EMISSION  VALUES  FOR  MILITARY  VEHIC1ES 


PRINT  50 

50  FORMAT  (1H1 ,38X,57HII.  A.  2 
.N  FACTORS) 

PRINT  51.NHIL 


MAI N0199 
M A I NO  200 
MAT  NO  20  1 
MAI N0202 
M A I NO  20  3 
MAIN0204 
MAINQ205 
MAI N0206 
MAIN0207 
MAI N0208 
MAIN  0209 
MAI N0210 
MAIN0211 
MAI  NO  2 1 2 
MAIN0213 
MAI N0214 
MAIN0215 
MAI  NO  2 1 6 
MAIN021  7 
MAIN0218 
MAIN0219 
HAIN0220 
MAI N022  1 
MAIN0222 
MAIN  0223 
MAI N0224 
MAIN0225 
MAI N0226 
MAIN  0227 
MAI N022H 
NAIN0229 
MAI N0230 
MAIN023 1 
MAI N0232 
MAIN0233 
MAI N0234 
MA1N0235 
MAI  NO 23 6 
MA IN0237 
MAIN0238 

MILITARY  AND  CIVILIAN  POLLUTION  E MI SSI 0 M A I NO 2 3 9 

MAIN0240 
M A I NO  24  1 


, 10X,28HCIVILIAN  VEHICLE  INFORMATION/) 

PRINT  2 03  , NCI V 

PRINT  204 , NC IV 

PRINT  201  , NCI V 

PRINT  202 , NCIV 


51  FORMAT  (1H-,3tX,A8,57H  VEHICLE  COLD  STARTS  PLUS  HOT  RUNNING  E M ISSI OM A I N 0 242 


.NS  (KG/MILE)) 

PRINT  60,  (PLNAME (I) ,1=1 ,NPLTS) 

60  FORMAT  (1H0,  10 X , 5HCLA SS  , 1 4X , 5 ( A4 , 1 4X)  ,A4) 
DC  250  J= 1 , 6 

250  PRINT  61,  J,  (AFEMFC  (2  ,J, I)  ,1= 1 ,NPLTS) 


MAI N024  3 
MAIN0244 
M A I N 0 2 4 r 
MAI N0246 
"A  I NO  ? 4 7 


112 


l 


n n n 


61  FORMAT  ( 1h  , 12 X , 1 1 , 4X, 1 P6  (8X, El  0. 3) ) MAIN0248 

PRINT  52 , NMIL  MAIN0249 

52  FGRMAT  (1H-,44X,A8,40H  VEHICLE  HOT  RUNNING  EMISSIONS  (KG/HILE))  MAIN0250 

PRINT  60,  ( FLN A ME  (I) , 1 = 1 ,NPLTS)  NAIN0251 

DC  251  J=1 ,6  MAIN0252 

251  FFINT  61,  J , ( AFEMFC  (1 , J, I)  ,1= 1 , NPL1S ) MAIN0253 

PRIM  S3  , N HI  L MAIN0254 

53  FORMAT  ( 1H-, 41X,A8,45H  VEHICLE  COLD  START  EMISSIONS  (KG/COLD  START) MA IN0255 

.)  MAI  NO 2 56 

PRINT  60,  (PLNAME(I) ,1=1 ,NPLTS)  HAIN0257 

DC  252  1=1,6  MAIN0258 

252  PRINT  61,  I , ( AFCS EM  (I  , J)  , J= 1 , NPLTS)  MAIN0259 

PRINT  54,  NMIL, AFSOAK , NMIL ,AFBRTH  MAIN0260 

54  FORMAT  (1H-, 10X.A8,61H  VEHICLE  CARBURETOR  SOAK  HYDROCARBON  LOSSES  PMAIN026  1 

.ER  VEHICLE  START, 1 PEI  2. 3 , 5H  (KG),/1H0,  MAIN0262 

. 10X , A8, 55H  VEHICLE  HYDROCARBON  BREATHING  LOSSES  PER  VEHICLE  STARTMAIN026  3 
. ,1EE12.3,5H  (KG))  MAIN0264 

MAIN026  5 

PRINT  EMISSION  VALUES  FOR  CIVILIAN  VEHICLES  MAIN0266 

MAIN0267 

PRINT  5 1 , NC I V MAIN0268 

PRINT  60,  (PLNAME(I) ,1=1, NPLTS)  MAIN0269 

DC  260  J= 1 , 6 MA INO  27  0 

260  PRINT  61,  J,(ATEHFC(2,J,I) ,1=1, NPLTS)  MAIN0271 

PRINT  52.NCIV  MAIN0272 

PRINT  60,  (PLNAME(I) ,1=1, NPLTS)  MAIN0273 

DO  261  J= 1 , 6 MAIN0274 

261  PRINT  61,  J,  (ATEMFC  (1  ,J,I)  ,1=1, NPLTS)  MAIN0275 

PRINT  53 , NCIV  MAIN0276 

PRINT  60,  (PLNAME (I) ,1=1 , NPLTS)  NAIN0277 

DC  262  1=1,6  MAIN0278 

262  PRINT  61,  I , (CSEMFC  (I  , J)  , J=1 , NPLTS)  MAIN0279 

PRINT  54,  NCIV, ATSOAK, NCIV, ATBRTH  MAIN0280 

C MA INO  28 1 

CALL  I AST  MAIN0282 

STOP  MAIN0283 

END  MA INO  28  4 


SUBROUTINE  OABARS 


Purpose: 

To  print  all  geometric  input  for  air  base  non-aircraft 
area  sources  and  to  print  the  calculated  annual  emissions. 


Input : 


All  airbase  non-aircraft  area  source  data. 


Output : 

See  purpose 

Subroutines 

Called: 


None 
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SUBROUTINE  OABARS 


■ 


noon 


c 


c 


c 


c 


c 


c 


c 


SUBROUTINE  OABARS(IO) 

THIS  ROUTINE  PRINTS  THE  NON-AIRCRAFT  AREA  INPUT 
AND  EMISSION  DATA 

R E A L*  8 MINUS 

COMMON  /TOTS/  TOTEM  (20  ,6)  , TOT EV P ( 10) 

COMMON  /POINTR/  M, N SR CES , N MA X , NM A XE , LSRCE S, N TOT 
COMMON  /SPACE/  SORC E ( 2 1 00 ) , SOR t M (8 , 2 50 ) 

COMMON  /EMFDB1/  EG  EM  FC  (6,  4 , 50)  , PL  NA  ME  ( 6) 

COMMON  /DEPAL1/  NP LTS  ,IT  A P E,  MI  NU S (6) 

DIMENSION  ABARS (7, 300) 

EQUIVALENCE  ( AB A R S ( 1 ) , SORCE ( 1 ) ) 

IF  (IO.GT.1)  GO  TO  200 

100  PRINT  101 

101  FORMAT  (1H1, 44X,49HI  I.  C.  A 
. S/1H-,49X,39HII . C. 1 AIRBASE 

110  PRINT  111 

111  FORMAT (1H-,28X,24HAREA  SOURCE  GROUND  LE V EL,  1 4 X , 1 D H A V ER AGE 

1 OX , 6HL  ENGTH  /1H  , 

.9X.6HSOURCE, 10X, 3 1 HCOORDI N ATES  OF  CENTER  AREA  (KM),10X, 

. 1 6HHEIGHT  (ME TE RS ) , 1 0 X , 7 H OF  S IDE , 1 OX , 7 HDELI A 2 /1H  , 

.1 IX, 2 HID, 14X,3H(X)  ,21X,3H{Y)  , 16X,3H(Z)  , 6 X , 2 ( 1 OX, 8H (METERS) 


IRBASE  AREA 
AREA  SOURCE  GEOMETRIES) 


OAB 
CAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 
OAB 

EMISSIONOAB 
OAB 
OAB 
OAR 
OAB 
OAB 


SOURCE 


)/1H  ,) 


AP000 
AR001 
AR002 
APOO  3 
AR  004 
AR005 
AR  006 
AR007 
AR  008 
AP009 
AR  01  0 
A P0 1 1 
AR  01  2 
AR  0 1 3 
AR014 
AP015 
AP016 
AR  01  7 
AP018 
AR019 
AP020 
A RO  2 1 
AF  022 
AP023 
AP024 


DO  120  N= 1 , NM  AX 

PRINT  112,  ABARS  { 1 , N)  , (AEAPS(T,N)  ,1=3,7) 

112  F OR  MAT  ( 1 H ,F15.0,F17.3,F24.3,F20.2,F23.3,F16.2) 

120  CONTINUE 
RETURN 

200  PRINT  201,  (PL NAME  (I)  ,1=1, NPLTS) 

201  FORMAT  (1H-/1  HO,  50X,  37  HSOURCE  EMISSION  DATA  <KI  LOGRA  (1S/X  EAR)  / 
. 1H0,10X,9HSOURCE  ID,  11X, A4,5(15X,A4)  ) 

DO  270  N=LSRCES, NSRCES 

270  PRINT  271,  SO REM  (1 ,N)  , (SOREM(I+2, N) , 1=  1, NPLTS) 

271  FORM  AT  (IK  , 1 2X , ES. 0, 1 P6 (9X ,E1 0 . 4)  ) 

PRINT  272,  (MINUS(JK)  ,JK=  1, NPLTS) 

272  FORMAT  ( 1H  , 16X , 6 (11 X , A8) ) 

PRINT  281,  (TOT  EM  ( 10  ♦ M , I)  ,1  = 1,  NPLTS) 

281  FORMAT  (1H  ,8X,12HTOTAL  AN NU AL ,6X , 1 PE  10 . 4, 5 ( 9X , El  0.4 ) ) 

DO  27  1=1, NPLTS 

27  TOTEM (IO*M,I) =TOTEM  (I 0*M , I ) /I  000 . 

RETURN 

END 


OABAR025 
OAPAP026 
OABAR027 
OABAP028 
OA  B AR  029 
OAEAP030 
OAEAR  03 1 
OABAF032 
OABAP03  3 
OABAR034 
OABAP035 
OABAR036 
OABAP03’’ 
OA  P A P 03  8 
OA  P A FO  39 
OA  B AR  040 
OABAP04  1 
OA  B AF  04  2 
OA  B AF  04  3 
OABAP044 
OA  B AR  04  5 
OABAF046 
0 A B AR  047 
OABAF048 
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SUBROUTINE  OABLNS 


Purpose : 


lo  print  all  input  following  the  basic  format  for  air  base 
non- aircraft  line  sources  and  to  print  the  calculated  annual 
emissions . 


Input : 


All  airbase  non- aircraft  line  source  data. 


Output : 

See  purpose 

Subroutines 

Called: 

None 


SUBROUTINE  OAELNS(IO)  OABLN090 

OABLNOOI 

THIS  ROUTINE  PRINTS  THE  NON-AIRCRAFT  LINE  INPUT  OABLN002 

AND  EMISSION  DATA  OABLN003 

OA  BLN  004 

REAL»8  MINUS  OABLN005 

COMMON  /DEFALT/  NPLTS , IT APE, MI NUS (6)  OABLN006 

COMMON  /EMFDB1/  EGEM FC  (6, 4 , 50)  , PL  NAME  (6)  OABLN007 

COMMON  /POINTF/  M , NSRCES , NMAX , NMAXE, LS RCES, NTOT  OABLNOOB 

COMMON  /SPACE/  SOR C E ( 2 1 00 ) , SOR EM  ( 8, 2 5 0)  OABLN009 

COMMON  /TOTS/  TOTEM  (2 0,6)  ,TOTEVP ( 10)  OABLN010 

DIMENSION  ABLNS  ( 10,  100)  OABLN011 

EQUIVALENCE  ( ABLNS  ( 1 ),  SOPC E ( 1 ) ) OABLN012 

OABLN013 

IF  (10. GT. 1)  GO  TO  200  OABLN014 

PRINT  101  OABLNOI 5 

FORMAT  (1H1,  44X,  49HI  I.  D.  AIRBASE  LINE  SOURCE  OABLN016 
.S/1H-,43X,52HII . D.1  AIREASE  NON-AIRCRAFT  LINE  SOURCE  GEO METR 1 ES) 0 A BLN  0 1 7 
R FI  NT  111  OABLNOI 8 

FORMAT  (1H-, 10X,24HGROUND  LEVEL  COOH DI N ATES, 4 X , 1 b H AV ER AGE  EMISSION .OABLN0 1 9 
. 30  X , 24HGROUND  LEVEL  COORI I N ATES , 4X , 1 6 H AV ER AGE  EMISSION/  OABLN020 

. 7 H SOURCE, 7X, 18HOF  ONE  END  OF  LI NE , 7 X , 16 HH EIGHT  (METERS), 5X,  OABLN021 
. 8HWIDTH  OF.5X, 7HDELTA  Z,5X,23HAT  OPPOSITE  END  OF  LINE,5X,  OABLN022 

. 16HHEIGHT  (METERS)/  OABLN023 

. 5 H ID,9X,4HX  (1)  ,9X,4HY  ( 1)  , 10X,  12HAT  X ( 1)  , Y ( 1)  , 6 X , 1 OHLI  NE  (MET)  , OABLN024 


. 4X,  8H  (METERS)  ,7X,4HX  (2)  ,SX,4HY(2)  , 10X,  12HAT  X(2),Y(2)) 

DO  120  N=1,Nt1AX 

PRINT  112,  ABLNS  (1 , N)  , (ABLNS (I, N)  ,1=3, 10) 

: FORMAT  (1H  , F6. 0, 2F13. 3.F16.2, F18. 2.F12. 2, FI  5. 3, FI 3.3.F16.2) 

) CONTINUE 
RETURN 

I PRINT  201,  (PLNAME (I)  ,1=1 , NPLTS) 

FORM  AT  (1H-/1H0, 50X,  37 HSOURCE  EMISSION  DATA  (KILOGRAMS/YEAR)/ 
. 1H0, 10X.9H SOURCE  ID,  11X,A4,5 ( 1 5 X , A4 ) ) 

DO  270  N = LSRCES, NSRCES 

I PRINT  271,  SOPEM  (1,N)  , (SOP EM ( I *2, N)  ,1  = 1, NPLTS) 

FORMAT(1H  , 12X  , F5. 0 ,1 P6 (9 X,E1 0.4)  ) 

PRINT  272,  (MINUS(JK)  ,JK=1, NPLTS) 

! FORMAT  (1H  , 1 6 X ,6  (1 1 X , A8) ) 

PRINT  281,  (TOT EM ( 10+ M , I)  ,1=1, NPLTS) 

I FORMAT  ( 1H  , 9X , 1 2HTOTA  L AN NU AL , 6 X , 1 PE  1 0 . 4 , 5 (9X , 1 10 . 4) ) 


DO  27  1=1, NPLTS 

TOTEM  (10+ M,  I)  =TOTF.M  (I  O+M.I)  /I  000. 

RETURN 

END 


OABLN025 
0ABLN026 
OABLN027 
OA  BLN  02  8 
OABLN029 
OABLN030 
OA  BLN  03  1 
OABLN032 
0ABLN033 
OABLN034 
0ABLN035 
OABLN036 
OABLNO  37 
OABLN038 
OABLN039 
OA  BLN  040 
OABLN04 1 
OA  BLN  04  2 
OABLN04  3 
OABLN044 
OABLN045 
OABLN046 
OA  BLN  04  7 
OABLN048 
OA  BLN  049 
OABLN050 
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SUBROUTINE  OABPTS 


fek 


To  print  all  input  following  the  basic  format  for  airbase 
non-aircraft  point  sources  and  to  print  the  calculated  annual 
emissions. 


Input : 


All  airbase  non-aircraft  point  source  data. 


Output : 


See  purpose 


Subroutines 

Called: 
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SUBHOUriNF:  OABPTS 


n n n n 


SUBROUTINE  OAEPTS(IO) 

THIS  ROUTINE  PRINTS  THE  NON-AIRCRAFT  POINT  INPUT 
AND  EMISSION  DATA 

READ  LUEMFC 
READ*8  MINUS 

COMMON  /POINTF/  M,  NSPCES, NMAX , NMA XE, LSfiCES, NTOT 
COMMON  /SPACE/  SORC E ( 2 1 00 ) ,SOR EM (8 , 2 5 0 ) 

COMMON  /TOTS/  TOTEM ( 2 0 , 6) , TOTE VP ( 1 0) 

COMMON  /EMFDB1/  EG  EH FC  (6 , 4 , 50 ) , PL NA ME (6 ) 

COMMON  /DEFALT/  NPL TS . IT AP E, M IN US  (6) 

DIMENSION  ABPTS  (11 , 150) 

EQUIVALENCE  ( A BPTS  ( 1 ) , SOP C E ( 1 ) ) 

IF  (1C.GT. 1)  GO  TO  150 
PRINT  101 

101  FCRMAT(1H-,63X,11HSOURCE  D AT  A/ 1 H- , 48X  , 5 HST  ACK  , 3 bX  , 4 HH  L AT/ 1 H , 

. 5X.6HSOURCE, 3X,5H PLUME, 8 X, 11 HCOORDI NATES, 1 0X,c.HriEIOHT,6X, 

. 7HDELTA  X,6X,7HDELTA  Z,  7 X ,8H  E MISSION  , 6 X , 10  H AN  NU  AL  NO., EX, 

. 9HFUEL/FIRE  /1H  , 

. 7X,2HID,6X,4HFLAG,6X,3H  (X)  , 9 X ,3H  (Y)  , 2X  , 3 (5X  , 8 H ( .1 ET  ERS)  ) , 5X  , 

. 10 H (KCAL/S  EC) , 6X, 8 HO  F FI P ES , 6 X , 9 H (GA LLON S) ) 

DO  115  N=LSRCES,NSRCES 
115  PRINT  113,  (AEPTS  (I  ,N)  ,1=  1 ,10) 

113  FORMAT  ( 1 H , 5X , F5 . 0, F8 . 0, 3 F 12. 3, 2F 13 . 3 , F 1 5. 3 , F 1 4 -3 , F 1 5 .3) 

GO  TO  200 

150  PRINT  151 

151  FORMAT  (1H-/1H0,63X,11HSOURCE  DATA/1H0, 

. 48X,5HSTACK,34X,5HSTACK,8X,5HSTACK,7X,5HSTACK,tX,8HbUlLDI NG/1H 
. 5X, 6H SOURCE, 3 X,5H PLUME, 8 X, 11 HCOORDI NATES,  1 OX,  6HH EIGHT , 

. 6X, 7HDELTA  Y , 6 X , 7 HDELTA  Z , 7 X , 4HTEN P,  BX , 8H V E LOCI T Y , 

. 4X,8HDIAMETER,5X,6HHEIGHT/1H  , 

. 7X,2HID,6X,4HFLAG,6X , 3H(X)  ,9X,3H (Y)  , 7X,8H (METERS)  , 5 X , 8H ( METFRS) 
. 5X,8H  (METERS)  ,5X,7H(DEG  K) , 7 X , 7H (M/S  EC)  , 2 ( 4X , 8H (M ET EhS) ) ) 

DO  160  N=LSRCES, NSPCES 

160  PRINT  161,  (AEPTS(I,N)  ,1=1,11) 

161  FORMAT  (1H  , 6X, F5.0, F7 . 0, 3F  12. 3, 4F13. 3, 2F12. 3) 

200  PRINT  201,  (PLNAME  (1)  , 1=1 , NPLTS) 

201  FORMAT  (1H-/1H0, 50X,  37HSOURCE  EMISSION  DATA  ( K 1 LOG  RAMS/YEAF)/ 

. 1H0, 10X,9H SOURCE  I D , 1 1 X , A4 ,5 ( 1 5 X , A4)  ) 

DO  270  N=LSRCES,NSRCES 

270  PFINT  271,  SOPEM  ( 1 , N)  , (SOP  EM ( I +2 , N)  , I = 1 , NPLTS) 

271  FORMAT  ( 1 H , 1 2X , F 5. 0 , 1 F6 (9 X , El  0 . 4)  ) 

PRINT  272,  (MINUS(JK)  ,JK=  1, NPLTS) 

272  FORMAT  (1H  , 1 6X  , 6 (1  1 X , A8)  ) 

PRINT  281,  (TOTEM  (IO  + H,  I)  , 1 = 1 , NPLTS) 

281  FORMAT  (1H  ,8X,12HTOTAL  AN NU A L ,6X , 1 PE  1 0 . 4 , 5 ( 9X,  El  0. 4 ) ) 

DO  27  1=1, NPLTS 

27  TOTEM (10* H, I) = TOTEM  (I 0*M , I) /I 0C0. 

RETURN 

END 
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SUBROUTINE  OENEM 


ITirpose : 

To  print  all  input  following  the  basic  formats  for  environ 
point,  area  and  line  sources  and  to  print  the  calculated 
annual  emissions. 

Input: 

All  environ  source  data. 

Output : 

See  purpose 

Subroutines 

Called: 


None 
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SUBROUTINE  CENEM(IO) 

THIS  ROUTINE  PRINTS  THE  ENVIRON  INPUT  AND  EMISSION  D, 
REAL*8  MINUS 

COMMON  /PCI NTR/  M , NS R C ES , N M AX , NM AX E,  LS ROES,  N TOT 
COMMON  /SI  ACE/  SOR C E { 2 100)  , SOB  EM  ( 8 , 2 5 0) 

COMMON  /TOTS/  T OTE M (2 0 . 6)  , TOT EV P ( 10 ) 

COMMON/  EMFDE1/  EG EM  EC  ( 6 , 4 , SO)  , PL NA ME  (6 ) 

COMMON  /DEFALT/  N PLTS  , IT  A P F,  M I NUS  (b) 

DIMENSION  ENPTS  ( 11,  100)  , ENARS (7, 100)  ,ENLNS (10,20) 
EQUI VALENCE  (ENPTS  ( 1) ,SORCE ( 1 ) ) , ( ENARS ( 1 ) , SORC E ( 1 ) ) 

. , (ENLNS  (1)  , SOR C E (1)  ) 


IF  (IC.GE.6) 
IF  (IO.GE.2) 


GO  TO  600 
GO  TO  200 


100  PRINT  101 

101  FORMAT  ( 1H-/  1H0, 63X,  11H SOURCE  DATA  /1HO, 

•48X.5H STACK, 34  X,5HSTACK,8X ,5HST ACK,7x, 5HSTACK, 6X, 8 H BU 1L DIN G/ 1H  , 

. 5X, 6HSOURCE, 3X, 5HPLUME,8X, 1 1HC0ORDINA  TES , 1 0 X , b nH EIG h T , fc X ,7 H DELT A 
. ,6X,7HDELTA  Z ,7  X ,4 HTL MP, 8 X , 8 HV  ELOCIl’Y  , 4X  , 8K  DI  AM  ETER  , 5X  , 6HHEIGH  T/ 

- 1H  , 7X, 2HID,6X. 4HFLAG,6X, 3H(X)  ,9X,3H  (Y)  , 7 X, 8H ( MET E RS)  ,5X, 

. 8H  (METERS)  , 5 X .8  H ( M ET E ES)  , 6X, 6 H (KC AL) , 7X, 7H (M/SEC) , 2 (4  X,  8 H (METER  S) 

• ) 

104  E CRM  AT  ( 1H  , 6X  , F 5 . 0 , F7  . 0,  3F  1 2 . 3 , 4F  1 3 . 3 , 2F  1 2 . 3 ) 

DO  110  N=LSRCES ,NSRCES 
110  PRINT  104,  (ENPTS(I,N) ,1=1,11) 

150  CONTINUE 

152  FORMAT(1H-/1i;0,  50X,  37HSOUF.CE  EMISSION  DATA  ( K1  LOGR A MS/Y  EAF ) / 

. 1H0,10X,9HSOURC£  ID,  11X,A4,5  (15X,A4)  ) 

153  FORMAT  (1 H , 1 2 X, F5. 0 , 1 P6  (9 X ,E 1 0 . 4) ) 

161  FORMAT  ( 1 H , 16X  , 6 ( 1 1 X,  A 8)  ) 

163  FORMAT  (1 H ,8X,12HTOTAL  AN  NU  AL,  6X  , 1PE10.  4,  5(  91,  E 10. 4)  ) 

PRINT  152,  (FLNAMF.  (I)  ,1=1  ,NPLTS) 

DC  160  N=ISRCES,NSRCES 

1 60  PRINT  153,  SCFEM  (1  ,N)  , (S  OF.  EM  (1+2,  N)  , 1=1,  NPLTS) 

PRINT  Ifcl,  (NINUS(JK) ,JK=1, NPLTS) 

PRINT  163,  (TOTEM (10+ M,I) , 1= 1 , NPLIS) 

DO  27  1=1, NPLTS 

27  TOTEM  (IO*M,I)  = TOTEM  (IO*M,1)/1000. 

GO  TO  190 

200  PRINT  201 

201  FORMAT ( 1H-/1h0,  63X,  1 1 HSOURCE  DATA/1  HO , 

.2 6X,24HAREA  SOURCE  GROUND  LEV  EL , 1 4X , 1 b H AV ER AG t EM  IS S ION , 1 OX, 6HLEN 
-TH/1H  ,9X,6HSOURCE, 10 X , 31 HCUORDI N ATE S OF  CENTER  AREA  (KN),10X, 

• 16HHEIGHT  (MET ERS)  , 1 0 X , 7 HOF  S IDE, 1 0X , 7 HDELT A ^ /1h  , 

. 1 IX, 2HID, 14X,3H  (X) , 21 X,3H  (Y)  , 18X, 3H (Z)  ,6X, 2(  10X, 8H (METERS)  ) /1H  ,) 

CO  260  N=LSRCES,NSFCFS 

PRINT  2 53,  EN AP S (1, N)  , (EN ARS(I  ,N)  ,1 =3 ,7) 

253  FORMAT  (1 H , F 1 5 . 0 , F 1 7 . 3 , F2 4 . 3 , F20. 2, F2 1 . 2, F 1b. 2) 

260  CONTINUE 
GO  TO  150 

tOO  PhlNT  601 

601  FORMAT  (1H-, 63 X, 11HSOURCE  CATA/1H0, 

. 10X , 24HGROUN D LEVEL  COOP D 1NA TES , 4 X , 1 6H A VEP AGE  EMISSION, 

. 30  X , 24HG  ROUND  LEVEL  CCOR DIN  AT ES , 4X , 1 6H AV Eh  AGE  EMISSION/ 

. 7 H SOURCE, 7X,  18HOF  ONE  END  OF  LI NE , 7 X, 16HH EIGHT  (METERS)  ,5X, 

. 8HWIDTH  OF  ,5  X ,7  HDELT  A Z,5X,23HAT  OPPOSITE  EN  L OF  LINE,5X, 
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. 1 6HHEIGH  T (HETEhS)/  OENEB062 

. 5H  IC,9X,4HX(1)  , 9X.4HY  ( 1)  , 10X.12HAT  X(  1 ) , X ( 1)  ,6  X , 1 OH  LI  N E (BET)  f OE  N EB06  3 
. 4X,8H  (HETERS)  ,7 X.4HX  (2)  ,9X,4HY (2) # 10X,  12HAT  X(2),Y(2))  OENEB064 

C OENEB065 

DO  660  N=LSRCES,NSRCES  OENEB066 

PRINT  653  , ENLNS  (1  , N)  , (ENINS  (I,  N)  , I = J,  10)  OENEB067 

653  FORB  AT  ( 1 H , F6 . 0,  IX, 2F  1 3. 3 , F 1 7 . 2 ,F 19 . 2 , F 1 3 .2 ,f 1 5 . 2 , F 1 3 . 2 , FI  8 . 2)  OENEB068 

660  CONTINUE  OENEH069 

GO  TO  150  OE  N EB  07  0 

C OENEB07 1 

190  RETUFN  OENEB072 

END  OEN  EH  07  3 
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FUNCTION  RRDIST 


Purpose: 

lo  calculate  the  amount  of  runway  necessary  for  takeoff  using 
the  aircraft  dependent  takeoff  length  equations. 

Input: 

Aircraft  identification,  pressure  altitude,  ambient  tempera- 
ture and  wind  velocity,  and  aircraft  takeoff  weight. 

Output : 

Takeoff  length  in  feet  of  runway  roll  to  liftoff. 

Procedure : 


Use  of  sets  of  takeoff  equations  provided  by  USAF. 
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FUNCTION  PRDIST  ( IP  , P A , T,  G W , WS) 

FUNCTION  CALCULATES  RUNWAY  ROLL  DISTANCE  IN  FEET 

IR  IS  AIRCRAFT  IDENTIFICATION  NUMBER 

PA  IS  PRESSURE  ALTITUDE  IN  HUNDREDS  OF  FEET 

T IS  TEMPERATURE  IN  DEGREES  FAHRENHEIT 

Gb  IS  AC  TAKE  OFF  WEIGHT  IN  THOUSAND  POUNDS 

WS  IS  THE  WIND  SPEED  IN  KNOTS 

FGP=0 . 0 

IF  (I R.EQ. 100)  GO  TO  100 

GO  TO  (1, 2, 3, 4, 5,6, 7, 8,9, 10, 1 1, 12, 13, 14,15, 16,17, 18,19,20,21 ,22, 
123,24,25,26,27,28,29,30,31,32,33,34,35,36,37, 100, 100, 100, 100,100, 
2 100,  100,  100,  100,100,  100, 100, 12)  ,IR 

1 CONTINUE 
GO  TO  100 

3 CONTINUE 

2 TOF =-(2.78-8.57  14E-4*PA)  ♦ ( 1. 8 2E-2+7. 2 857E-5 *P A)  * GW 
GP=  ( 1 . 184 E* 1-4. 2167 E- 1*T*  1 . 0E- 2*  T**  2- 4.  583E-5*T**3)  + 

. (4.  194+1. 7197 E- 2 »T-  9 . 26 0 18E-4*T**2)  *TOF* 

. (1  . 0457+8.40E-3*T*2 . 1 17E-4*T**2*2.  98E-7*I**3) *TO  F**  2 

FGR=  (GP-  (1. 15E-1  + 9. 0E- 3*GF ) * WS) * 1 00. 

GO  TO  100 

4 CCNTINUE 

5 TOF=  ( 1.589+6. 88 3E-3*PA  + 1. 2767E-4* PA** 2 ) ♦ 

. (8.819E-3+1 . 1007 E -4 *p A-3 . 924 E-7 *p A** 2) *T* 

. (5. 979E-5  +3 .38  096E- 7*PA*8.  5 3 2E-9*PA **2)  »T**2 

GR= (-13. 2 5+ F.75E- 1*GW-  1 . 2 5E- 2*G W**2)  * 

. i1.3925E*1-9.275E-1*GW*2.125E-2*GW;*2)  *TOF 

FGR= (GR- ( 1. 316E-  1+8.748E- 3*GR) *WS) *1 00. 

GC  TO  100 

6 TOF=  (9.3937E-1*2.0947E-2*PA*2.005E-4*PA**2)  ♦ 

. ( 3. 746467E- 2*4 ,05625E-4*PA)  *T+ 

. (1  .9928E-4-5. 7S006E-6*PA+1.  40 23 4E-7*PA**2)  *T **2 

GR= ( 1. 4307E+1-7.57 144E- 1*GW*2. 6785E-2*Gb**2) ♦ 

. ( 1.67257E+  1-1.  17762*GW*2.7381E-2*GW**2) *TOF 

FGR=(GR-(2.412799E-2*7.82971E-3*GR)  *WS) *100. 

GO  TO  100 

7 TOF  = (-1 .06E-3*1.674E-2*PA*8.  1 888 E -5*P A** 2)  ♦ 

. (1.36E-2*9.592E-6*PA*1. 755E-6*P A**2)  *T* 

. (5. 1099E-5* 1 .2899E-6*PA-6. 1 2 3E-9*P A**2) *T**2 

GR= (-1.423E*1*6.349998E-1*GW*1.6667E-3*GW**2) ♦ 

. (6. 1 857- 3 . 2 1 79E- 1*G W*8. 2 1 4E- 3*G W**2 ) *TOF 

FGK  = (GR-(6.293  E-2*7.  3 28E-3*GR)  *WS) *100. 

GO  TO  100 

8 TOF=  (9. 503 E- 2+ 3. 313E- 2*PA+1  . 3 6 66E -4 *P A**2 ) ♦ 

. (2.2546E-2+ 1 .7848 E-4* P A-4. 0 4 E-6*P A**2)  *T* 

. ( 1.  34  38E-4- 1, 2166E- 6*PA ♦ 4 . 1 8 54E-8*PA**2)  *T**2 

GR  = (2.95E+1-2.  39 4*GW*  6. 497E-2 *GW* *2)  + 

. (3. 1035*7. 52E-2*GW-3. 186 E-3* GW  * *2)  *TOF* 

. ( 1.2715-1.5535E- 1 *G W*4 . 3889E- 3*G W**2 ) *TOF**2 

FGR=  (GR  - (-9.0E-2+1 . 80  7E-2 *GR-7. 1 4 3E-5*GR** 2) * b S) * 100. 

GO  1C  100 

9 TCF=(3.36455E-3*5.6355bE-2*PA) ♦ 

. (4.417E-2-2.031E-3* EA*5. 63E-5*P A* *2-3. 9 95 4 E- 7*? A** 3)  *T* 

. (-9.2E-S*2.08E-5*PA-5.39E-7*PA**2*3.8E-9*PA**3)  *T**2 

Gh  = ( 1 .65838-3. Ob 9E-1*GW*8.  1 3b 3E-2 *GW **2 ) + 

(-3. 6111*3. 63 559 E-1* GW)  *TOF  ♦ 

. (7.3975E-  1-8.78  7 4 9E-2*GW*3.2  4 87E-3*GW**2)  *TOF**2 

FGR=  (GR- (5. 02-2*7. 4E-3*GR) *VS)  * 100. 

GC  TO  100 

10  TOF  = ( 12.5546-5.  7 19 2E-2*PA* 1.3 075£-4*p A**2)  - 
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. (2.9032E-2-1.0254E-4*PA-1.45125E-7*PA**2)  *T 

GP= ( (-5. 14955E+ 1+2. 57957*GN- 1 . 44 25E- 2*G«** 2)  - 
(- 1. 1 5 3 c E+ 1+  5. 915E- 1 *G4 -4. 6 828 E- 3*GW**2 ) *TOF  + 
(-6.2^85E-1+3.2375E-2*GW-2.9056E-4*G«**2|  *T0F**2)  *1000. 
FGR  = (3.305E+1+9.729E-  1*GP+2.31E-6*GR**2)- 
(6.244+8.3593E-3*GR-1.44E-8*G8**2) *WS 
GU  TO  100 

11  T0F  = (7. 436E- 1+  4 . 29 E- 2 *PA ) ♦ (2 . 1 2 76E- 2- 3 . 1 1 1 6 E-5 * Pi) * T 
GR  = (1  .638E+ 1-7.78E-1*GW+2.84E-2*GW**2)  ♦ 

. (3.809- J.947E- 1*GW+4.264E-3*GW**2) *TOF+ 

. (-1 .976E-1+  1.5757  E-2*GH  +4.  6 1 89E -4  *G4  **2  ) *T0F**<: 

FGR  = (GR- (8. 5E-2+8. 2 SE -3*G E) *H S) * 100. 

GO  TO  100 

12  TCF  = (1  .1405-4.639E~3*FA+1.  28E-5*PA**2)  - 

. (2.0l46E-3-2.46E-5*PA+3.5514E-7*PA**2) *T 

GR=(-3.0029E+1-9.6225E-2*GW+1 . 25428E- 1 *GW**2) - 
. (-7.3845E+1+1.20433*GW+1.7357E-1*GW**2) *TOF+ 

(-3.  578  57E+1  + 7.85  7E-  1*GK  + 7.  1 42  8 8E-2  *G  11**2  ) *TOF**2 
FGR  = ( (3. 17413E-1+9.76  2E-1 *GR+ 2 . 6 57 E-4 *GR**2)  - 
. (1 . 1 114  E- 1 +7. 91 17  7E-3*GR  + 4.  40  1 69E- 5*G R**2)  *WS)  * 10 0. 

GO  TO  100 

13  TOF  = (9.166-5.485E-2*PA) - (3 . 4 12E-2-1 . 8 E-4*P A) *T 
GP  = (3.02E  + 2-3. 519E+ 1*  GW+1 . 841*GW**2)  - 

(1  .306E  + 2-1.  277  E+ 1*  GW  + 5. 4E-1*GW**2)  *TOF  + 

. (2.0687E+1-1.715*GW*6.07E-2*GW**2) *TOF**2- 

. ( 1 . 1S78-8.4  228E-2*GM  + 2. 46E-3*G W**2) *TOF**3 

FGR  = (G  R-  (9 . 55E-2  + 7 . 15E-3*GP)  *WS)  *100. 

GO  TO  100 

14  TOF = (2.336+ 1.582E-2*PA+1.172E-4*PA**2)+ 

(5.604E-3+9.97746E-5*PA-5.8117147E-7*PA**2) *T+ 

. (9.19269E-5-1.34357E-8*PA+1.61411E-8*PA**2)*T**2 

GR  = (7. 7366-2. 5 2 997 E-1 *GH  + 2. 38 5 E- 3 *GW ** 2)  ♦ 

. (-2. 1071+4.2586E-2*GW+12.748E-4*3H**2) *TOF 

FGR= (GR-(  1.  0755E-1+  1.  4588 E- 2*GF - 7 . 94 1 56E- 5*G R* *2 ) * U S) *100. 
GO  TO  100 

15  CONTINUE 
GO  TO  100 

16  TOF  = (7.6859-1.  1 5E- 1* P A ♦ 4 . 4 1 3E- 4* P A* * 2 ) - 

(2.925E-2-8. 1 128 E-4  *FA+6.99S  E-6*PA**2)  *T- 
. (2.2289E-4+5.054E-6*PA-7.57E-8*PA**2)  *T**2 

GF= (2. E46E+  1-2.  3 388*GH*  1. 0717F- 1*GW**2) - 
. (7. 9095-6. 7434E-1*GH+2. 1045 E-2*GW ** 2) *TOF+ 

. (6. 099E- 1-5. 0858 E- 2*GW+ 1 .434E- 3*3H**2) *TOF**2 

FGR=  (GR-  ( 1.  16 E-1  + 7.  27  E- 3*  GR-  3 . 64  E -6 *GR**2  ) * S)  ♦ 1 0 0 . 

GC  TO  100 

17  CONTINUE 
GC  TC  100 

18  TOF= (2. 1 18+ 1. 0S8E- 2+PA+ 1. 014E-4*PA**2) ♦ 

. (2.102E-3+1.84E-4*PA-1.177E-6*PA**2)*T+ 

. (1 . 001 E-4-7. 046E-7*  PA  + 1.  355E -8 * P A** 2)  *T**2 

3P= ( 1.0 E-5)  ♦ (-  1.9687+  4.209E- 1 *G W+  3. 94 45E- 2*G h**2 ) * TOF 
FGn= (GR- (8. 363E-2+ 1 . 4 88 E-2 *GR-9 . 7 8 1-5 * GR* * 2) * NS) * 100. 

CO  TO  100 

19  TOF  = (4. 65478+6. 94444E-3*T)  + ( 3 . 2 5 7 E- 1 +2 . 77 78 E-4 * T) * { P A/1 0 . ) 
GR=  (.  14  57+3.5625E-2*GH-6.  763 E-5* GW* *2)  ♦ 

. (5. 1428-3. 17 5E-2*GW+ 7.0 089E-5*G 4**2) *TOF 

FGR  = (GR- (. 1 ♦. 008  2*GR)  *WS) * 100. 

GO  TO  100 

20  TOF  = (1  .2 192956  + 2.209 1 577E-3*PA  + 3.  380 102E-4*PA**2) ♦ 

. (1.4628966E-2+2.631 3968E-4* PA- 1 .38 1 8053E-7*PA**2> *T- 

. (2.  439  IE-4-6. 875 E-6*PA  + 7.81 2 5E-8*PA**2) *T**2  + 

. U.203l4E-6-6.49E-8*?A+7.47E-10*PA**2) *T**3 
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GR=  ( (2.  38  06  396-  5. 926 5 772E- 2*G W + 6.  67969E-4*GW ** 2)  + 

. ( - 1.  19933 136+  5. 04 109 8E- 2*GW- 2. 1 25 1 7E-4*GW **2 ) * TOF ) * 10. 

FGR=  (1 .0+9.77  57 143E+1 *GR+6. 42857 14E-2*GR**2) - 
. (4. 8785706+5. 4275515E-1*GR+4.438775E-3*GR**2) *WS 

GC  10  100 

21  TOF=  (-4.799107E- 1 ♦ 3.3165178E-2*PA  ♦ 2. 79 02E -4*P A** 2)  + 

. (2.129E-2  ♦ 2.2538E-4  * PA  - 2.9186E-6  * PA  **  2)  * T 

GR  = (1.16103  + 5.318E-2  * GW  + 9.0525E-4  * GW  **2  ) ♦ 

. (3.  3695E1  - 6 . 94278E-  1 * GW  + 3.8559E-3  * GW  **  2 ) * TOF  - 
. (-9.041  ♦ 2.307E-1  * GW  - 1.264E-3  * GW  **  2 ) * TOF  **  2 ♦ 

. (-1.0708  ♦ 2.477E-2  * GW  - 1.108E-4  ♦ GW  *♦  2 )*T0F  **  3 
FGR= (GR- (2. 4131E- 1 + 2. 1 15E- 4*GR  + 1 . 935E-4*3 R**2) * WS) * 1 00. 

GC  TO  100 

22  CONTINUE 

23  TOF  = (3.91 16 E-2  + 6. 3976  E-2*PA)  + ( 1. 6 55 7E-2 -7 . 6 64  3 E-o*P A) *T 
GR=  (5. 625-9.5E-2*3W  + 1 . 31  25E- 3*GW  * *2)  + 

. (8. 6496 E- 1- 1.2768E- 2*G W+ 1 . 077E- 4*G W**2) *TOF+ 

(4.0067£-1-5.982E-3*GW+3.627E-5*GW**2)  *TOF**2 
FGh= (GR- ( 1. 508E- 1+8.625E- 3*GR) *WS) *1 00. 

GO  TO  100 

24  TOF=(5.4  067E  + 1-1.3  375E-1*PA-2.  27 55E-4 *P A*»^  + 3 . 6506E- b*P A ** 3)  - 

. (7. 395E-2-1.71E-4*PA-5.91E-6*PA**2+4.22E-8*PA**3) *T 

GR=(8.6549E+3-7.75196E+1*GW+2.07846E-1*GW**2)- 
(5.6302E+2-4.9948*GW+1.30519E-2*3W**2) *TOF  + 

( 1. 22509E+ 1-1 . 07805 E-1+GW+2 . 7S9985E-4 *G W* *2 ) *TOF**2- 
. (8.8948E-2-7.77463E-4*GW+1.956483E-6*GW**2) *TOF**3 

FGP= (GR- ( 1.  4123219E-  1 +8. 52935 78E- 3*5 R + 5 .7  09895 E-6 *GR* *2) *WS)  *100. 
GC  TO  100 

25  TOF=  (7. 90371+6. 68965E-2*P A + 2.  12622E-4*PA**2) ♦ 

(3. 00808E-2+2. 671 1 8E- 5*PA+ 9 . 85E-6*P A**2 ) *T+ 

(1 .23149E-4+1 .3589E-6*PA-3. 164 1 E-8*P A**2|  *T**2 
GR=(2. 1742857+2. 042 86 E-1+GW-1. 0714 29E-2*GW**2) + 

(1. 14943-1. 27 07 E-1* GW +5. 178 5E-3 *GW**2) *TOF 
FGR=  (GR-  (-2.7327E-2  + 1.904E-2+GR)  *WS+ 

(-6. 3 0807 7E- 4 + 1. 946  54E- 4*GR)  *WS**2)  *100. 

GO  TO  100 

26  CONTINUE 

27  CCNTINUE 
26  CONTINUE 

29  TOF=  (7.8393  5E-1+ 5.  381 89E-2*PA)  + 

. (1 . 2 04 08E-2 ♦ 9. 888 35 7 E-5* PA-2. 32 448E-6 *P A**2) *1- 

. (9. 7 2E-6+  1.827  8E-6*  PA- 2 . 405E-8* PA** 2) *T**2 

Gfi=  (3.  189  78E+1-1.78  5*GW  + 3.602E-2*GW**2)  ♦ 

. (-8.8285+5. 1387 E- 1* G W-5. 679 E- 3*GW ** 2) *TOF+ 

. (- 1. 7644 1+4. 6 2709 E- 2*GW) *TOF**2 

FGP=  (GR-  (8.6457E-2+1.  1414E-2*GR)  *WS)  * 100. 

GO  TO  100 

30  TCF  = (-2.89  0 514E-1+5.  8 3709 56E- 2*P A)  ♦ 

. (4. 161561 E-2-3. 5 18445 E-5* PA)  *T ♦ ( -6.  05 1 5E- 5 + 3 . 53  09 5E-6*FA) *T**2 
GR=(-2.684337E+1  + 3.  224954 *GW)  ♦ (-2 . 058 1 5 1 9 + 3 . 70243 5b E- 1 *GW ) *TOF  + 

. (-8.861  35 7E- 1 + 8. 309  3 188 E-2*GW) *TOF* *2 

FGR  = (CP- ( 1.  3583 333 E- 1 ♦ 9. 5 8 33E- 3*G R) * WS) * 100. 

GO  TO  100 

31  TOF=  (7.46275E-1  + 1 . 7 89 9 24 E-2* p A+ 1. 667729E-4*P A**2)  ♦ 

(t.  1017875 E- 3+3. 481 6 947 E- 4* PA- 1 .b4  062  2 9E-6*PA**2)  *T  + 

. (1 . 718525E-4-2.62 18 25E-6*PA+4. 1 8437 5 E-8*P A* *2 ) * T** 2 

GP= (-7.2378  1/9F  + 1 + 3.8485684E+ 1*GW-6.  56 5*3 W* *2+  3 . 9 1 6E-  1*GW**3) ♦ 

. ( -5.  4 77E+  1+  2. 92E+  1*GW-4 ,975*GW**2  + 2 .906E- 1 *G  W**3) * TOF 

FGR  = ( (- 1. 607758+1.  222176*GR -5. 64375 1- 3* GR** 2)  - 
. (. 482382 E-  1 + 2 . 226 0 1 52E- 2*GP - 4 . 7 462 1 16F-4*GR**2)  *W3)  *100. 

CC  TC  100 

32  TOF  = ( 1.996 +1.6 9 E-2* PA +2. 56 E-5* PA* *2)  ♦ 
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(8.64E-3-7.5E-5*PA+  1 . 61 E-6* PA** 2)  *T 
GR  = (6 . 26  E + 1-  1.  29  9E  + 1*  GW + 6 . 886 E- 1 *GW**2)  ♦ 

(-1 .0004E+2+2.0317E+1*GH-9. 67E-1*GW**2)  *TOF  + 

. ( 1.  30368E+1-2.689*GH+1. 4 03E- 1*G  W**2)  *T0F**2 

FGR  = ( (-3.3 E-1  + 1.047  *GR-8. 57E-4*GR**2) - 

(4. *2E-2+9.47E-3*GR ♦ 1 . 9898E- 5*GR) * NS)  *100. 

GC  TO  100 

33  TOF=  (6.6742 857 E-1+4.  4 2267  8 6 E- 2*  PA)  + 

(1. 027143 E- 2+3. 0S1339E- 4* PA)* T+(1 . 74994  E-4  + 5 . 02  3 E-7  *P  A)  *T**2 
GR=  (-1  .37  66  6666  E+1  + 1.  679 1 6 666 6 *GW ) ♦ (-3.  55+4.  7 1 8 7 5E- 1 * GW) * TOF 
F GR  = (GR-  (1 . 61 66666666 E-  1+  1.008  33  3 33  33E-2*GR)  *WS)  * 100. 

GO  TO  100 

34  CONTINUE 

35  CONTINUE 

3 6 TOF  = (-9  .2083337  E-1  + 5.  9 1 13889E-2*PA) ♦ (2.  29  1666 E- 2- 2. 7778E-5*PA) * T 
GR  = (3. 71 1 176E+ 1-  1. 64027 9E+ 1*G  W + 2 . 22809*GN**2)  + 

. (-2. 09922E+  1+8.6991  796*GW-8.4586E-1*GH**2)* TO F + 

(2  . 248949-9. 093486E-1*GW  + 1.061975E-1*GW**2)  *TOF**2 
FGR=(GF-(  4.  3358E-2  + 2.  196E-2*GP) *WS+ 

. (8.79208E-4  + 8.21219E-5*GR)  *WS**2)  *100. 

GO  TO  100 

3 7 TCF  = (-6. 46E-1  + 6.  78 57 E-2*P A + 2.  7 23 E -4 *P A* *2  ) ♦ 

. (3.69E-2-2.24E-3*PA+3.49E-5*PA**2) *T+ 

. ( 1 .07E-4  + 3.85E-5*PA-4.688E-7*PA**2)  *T**2 

GR=  (5.38-1  . 105*GN+  1 . 1 4E-1  *GW**2)  + 

. (8.C2E-1-2.57E-1*GH+2.4E-2*GW**2)*T0F 

FGR  = (GR-  (1 .6E-2+2. 44E- 2*GP-2. 1 28E-4 *GR* *2 ) * 4S) * 1 00 . 

GC  1C  100 
100  RFDIST=FGF 
RETURN 
END 
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SUBROUTINE  TREFCT* 


Purpose : 


To  calculate  emission  factors  for  cars  and  trucks. 


Input : 


Option  parameters,  non-default  data  where  specified. 


Output : 


Exhaust,  crankcase,  evaporative  and  cold  start  emission 
factors  by  vehicle  class. 


Subroutines 

Called: 


None 


* Several  of  the  options  available  in  the  original  TREFCT  have  been  defaulted 
in  this  version  via  a data  statement.  If  these  options  arc  desired  the  pro- 
gram could  very  easily  be  converted  back  to  its  original  form. 
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SUBROUTINE  TREFCT 
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lDULSI. 


B 


INPUT  NEW  EVAPORATIVE 
EMISSION  FACTORS  FOR 
ALL  6 CLASSES 


USE  DEFAULT  EVAPORATIVE 
EMISSION  FACTORS  CORRESIUNDING 
TO  I AREA.  BROKEN  DOWN 
ACCORDING  TO  EMISSION  SOURCE 


xz 

/ INPUr  NEW  COLD  START 

RATIOS  FOR  ALL  b 

VEHICLE  CLASSES 

t o 

’! 

USE  DEFAULT  COLD  START 
RATIOS  AND  INCLUDE:  GROSS 

vehicle:  we e a it  dependence 

IF  IHDV  = 2 


INPUT  AND  PRINT  NEW  VEHICLE 
AGE  DISTRIBUTION 


US!.  DEFAULT  VEHICLE: 
AGE  DISTRIBUTION 


CALCULATE  THE  E-'RACr  I ON  OF 
TOTAL  MILES  DRIVEN  BY 

vehicle:  class  and  age. 


CALCULATE: 

EXHAUST  EMISSION  FACTORS, 
CRANKCASE  B1ISS I ON  FACTORS, 
EVAPORATIVE  EMISSION  FACTORS 


c 

c 


v 


C 

C 

c 

c 

c 


SUtRCUT  IN  E THFFCT  (CLDSTR , EXE  HI  ,C  SCO , CS  HC  , EV  AP  , CR AN  K , I Ml  EA  , I HDV  , 
. 1AAT.YEAP) 

THIS  ROUTINE  CALCULATES  EfllSSICN  FACTORS  FOR  CARS  AND  TRUCKS 


INTEGER  TEEIIT , OPT, YEAR, RTROFT ,CL DST R 
DIHENSICN  BYEFCO(6,31) , BY EFHC ( 6, 3 1) , 

DETCO  (6,31,16), 

RTKOCO (6,31) , 

RC SCO  (6,31)  , 

YEFCO  (6,31)  , 

Y EFCSC (6,31)  , 

SCO  (6)  , 


B YEFNO (6 , 3 1 ) , 
DETNO  (6, 31,16)  , 
RTRONO (6,31)  , 


DETHC  (6,31,16)  , 

BTROHC (6,31) , 

RCSHC (6,31) , 

YEFHC (6,31) , YEFNO (6, 31) , 

YEFCSH(6,31) , 

SHC  (6)  , SNO (6)  , 

C REF (6,31)  , EVEF (6,31,3)  , REGIS(16,6),  AAT(16,6),  PAAT(16,6), 
S UH  (6 ) , PTRVL  (6 , 16)  , WFCTR  (6)  , HEVAP(3), 

E XEHI  (6,3) , CSCO (6) , CSHC (6)  , CRA  NK (6)  , EVAP(6,3),  Y (2) 


DIHENSICN  IEXCO(31 ,3,3) , 

HDVCO (31 ,3,3), 

FDEFCO  (31)  , 

FDETCO (21 , 10,2) 

FCHDCO  (16)  , 

FFCSCO (31,3)  , 

H DC  SCO  (4)  , 

C H ( 10 ) , FCRNK (3 1, 2,2)  , FEV AP  ( 3 1 , 2 , 2)  , CHH(16), 
SEV1 (31,3,2)  , SEV2  (31,3,2)  , SEV3(31,3,2) 
DIHENSICN  T RETIT (16)  ,OPT  (6)  ,R AGIS  (16, 6)  ,RFG1S  (16,6) 
DATA  TRETIT  /0 , 1 , 2 , 3 , 4 ,5 ,6 , 7 , 8 , 9 , 10 , 1 1 , 12 , 1 3, 1 4 , 1 5/ 


FEXHC ( 3 1 , 3 , 3)  , 
HDVHC  (31,3,3), 
FDEFHC  (31)  , 
FDETHC (21 , 10,2) , 
FCHDHC ( 16) , 
FFCSHC (31,3)  , 
HDCSHC  (4)  , 


FEXNO(31 ,3,3)  , 
HDVNO (31, 3, 3) , 
FDEFNO (31) , 

FDE  TNO (21 , 1 0 ,2)  , 
FCHDNO  ( 16)  , 


USEPA  EXHAUST  EHISSION  FACTORS  --  1960-1990  (GRAHS/VEHICLE- HILE) 
FIRST  31  VALUES  ARE  AUTCS,  NEXT  31  ARE  LIGHT  DUTY  TRUCKS,  NEXT 
31  ARE  HEAVY  DUTY  GASOLINE-POW FRED  TRUCKS 


DATA  FEXCC/ 


8*87., 

46.,  39., 

36.  , 

34., 

3*19., 

12.  5, 

15*1 .8, 

8*87. , 

46.,  39., 

36.  , 

34.  , 

3*19., 

12.5, 

15*1.8, 

10*140. 

, 21*130., 

8*130. , 

74.,  48., 

72.  , 

75.  , 

3*42., 

20.0, 

15*1.8, 

8*130. , 

74.,  48., 

72., 

75.  , 

3*42., 

20.0, 

15*1.8, 

10*210. 

, 21*190., 

6*87.,  51.,  50., 

46.,  39., 

3 6., 

34.  , 

3*19., 

2.8, 

15*1.8, 

6*87.,  51.,  50., 

46.,  39., 

36.  , 

34.  , 

3*19. , 

2.8, 

15*1.8, 

10*140.,  5*130 

»TA  FEXHC/ 

.,  16*81. 

/ 

8*8.8, 

4.5,  4.4, 

3.6, 

2.9, 

3*2.7, 

1.3, 

15*. 23, 

8*8.8, 

4.5,  4.4, 

3.6, 

2.9, 

3*2.7, 

1.3, 

15*. 23, 

10*17.  , 

4*16., 

17*13.  , 

8*10.  , 

6.0,  5.4, 

6.1, 

5.3, 

3*4.9, 

1.8, 

15*. 23, 

8*10., 

6.0,  5.4, 

6.1, 

5.3, 

3*4.9, 

1.8, 

15*. 23, 

. 10*19.,  4*18.,  17*15. 


6*8.8,  6.0,  4.6,  4.5,  4. 

, 3.6, 

2.9,  3*2.7, 

.33, 

15*. 23, 

6*8.8,  6.0,  4.6,  4.5,  4.4,  3.6, 
10*17.,  2*16.,  3*13., 

DATA  FEXNC/ 

2.9,  3*2.7, 
16*4.  1/ 

.33, 

15*. 23, 

8*3.6,  4.3,  5.5,  5.1, 

2*4.8, 

2*2.3, 

2.2, 

1.6, 

14*. 31, 

8*3.6,  4.3,  5.5,  5.1, 
10*9.4,  21*9.2, 

2*4.8, 

2*2.3, 

2.2, 

1.6, 

14*. 31, 

6*1.9,  2.2,  2.6,  2.8, 

2*3.1, 

2*1.4, 

1.4, 

1.3, 

14*. 31, 

8*1.9,  2.2,  2.6,  2.8, 
10*5.0,  21*4.9, 

2* j.  1, 

2*1.4, 

1.4, 

1.3, 

14*. 31  , 

6*3. 6, 2* 3. 4, 4. 3, 5. 5, 5.1, 

2*3.5, 

2*2.3, 

1.1, 

1.1, 

14*. 31, 

6*3. 6, 2*3. 4, 4. 3,5. 5, 5.1, 
10*9.4,  5*9.2,  16*2. 

2*3.5, 

8/ 

2*2.3, 

1.1, 

1.1, 

14*. 31  , 

TREPT000 
TREFTOO 1 
TREFT002 
TREFTOO  3 
TREFT004 
TREFTOO  5 
TREFT006 
TREFT007 
TREFT008 
TKEFT009 
TREFTO 1 0 
TREFT01 1 
TREFTO  1 2 
TREFTO 1 3 
TREFTO 1 4 
TREFTO  1 5 
TREFT016 
TREFT017 
TREFTO  1 8 
TREFTO 1 9 
TREFT020 
TREFT02 1 
TREFT022 
TREFT023 
TREFT024 
TREFT02  5 
TREFT026 
TPEFT027 
TREFT028 
TREFT029 
TREFT030 
TREFT03 1 
TREFT032 
TREFT033 
TREFT034 
TREFT035 
TREFT036 
TREFT037 
TREFT038 
TREFT039 
TR  EFT 040 
TREFT04 1 
TREFT042 
TREFTO 4 3 
TREFT044 
TREFT045 
TREFT046 
TREFT047 
TREFT048 
TREFT049 
TREFT050 
TREFT051 
TREFT052 
TREFT053 
TREFT054 
TREFT055 
TREFT056 
TREFT057 
TREFT058 
TREFT059 
TREFT060 
TREFT06 1 
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C 

c 

c 

c 

c 


USEPA  DIESEL  EMISSION  FACTORS  — 1960-  1990 

DATA  fEEFCC/  10*49.2,  21*32.5/ 

DATA  EDEFHC/  10*9.84,  21*3.78/ 

DATA  FDEFNO/  10*51.5,  21*76.4/ 

HEAVY  DUTY  VEHICLE  EXHAUST  EMISSION  FACTORS  1960-1990  SKRI  STUDY 

FIRST  31  VALUES  ARE  FOR  GVW  6000-16000  LBS 

NEXT  31  VALUES  ARE  FOR  GVK  16001-33000  LBS 

NEXT  31  V ALOES  ARE  FOR  GVK  GREATER  THAN  33000  LBS 

DATA  HEVCO/ 

10*108.5,21*100.  8,  10*146.2,21*135.7,  1 0*27 1 . 3 , 2 1 *2 5 1 . 9 , 

10*162.8,21*147.3,  10*219.2,21*198.4,  10*407.0,21*368.2, 

10*108.5,5*100.8,16*62.8,10*146.2, 5*135.7, 16*84.6, 10*271.3, 
5*251.9, 16*157.0/ 

DATA  HDVHC/ 

10*13. 1,4*12.3, 17*10.0,  10*20.  2,4*19.0,  17*15.4,  10*2  9.0,4*2  7.  3, 
17*22.3,  10*14.6,4*13.9,17*11.6, 10*22.6,4*21.4, 17*17.8, 10*32.4 

4*30. 7, 17*25. b,  10*13. 1,2* 12. 3, 3*10. 0,16*3. 2, 10* 20. 2, 2* 19.0, 
3*15.4,16*4.9, 10*29.0,2*27.3, 3*22.2, 16*7.0/ 

DATA  HDVNO/ 

10*9.4,21*9.2,  10*9.6,21*9.4,  10*9.3,21*9.1, 

10*5.0,21*4.9,  10*5.1,21*5.0,  10*5.0,21*4.9, 

10*9.4,5*9.2,16*2.8,  10*9.6,5*9.4,16*2.9,  10*9.3,5*9.1,16*2.8/ 


CCLD  START  RATIOS  FDR  LDV  FROM  6-CITIES  AND  GM  DATA 


1960-1990 


TREFT062 
TREFT063 
TREFT064 
TREFT065 
TREFT066 
TREFT067 
TREFT068 
TPEFT069 
TFEFT070 
TREFT071 
TFEFT072 
TFEFT073 
TFEFT074 
TREFT075 
TREFT076 
TR  EFT  077 
TREFT078 
TFEFT079 
TREFT  080 
, TR  EFT08 1 
TREFT082 
TREFT083 
TFEFT084 
TFEFT085 
TREFT086 
TR  EFT  087 
TF.  EFT 08 8 
TF  EFT  089 
TREFT090 


DATA 

FFCSCC/  8*. 175, 

.274,  .347, 

.305, 

5*. 322, 15*1.369, 

TR  EFT  09 1 

. 

8*. 138, 

.220,  .372, 

.285, 

5*. 237 ,15*1. 369, 

TREFT092 

. 6* 

.175,  .349, .372, 

.274,  .347, 

.305, 

4*. 322, 16*1 .369/ 

TREFT093 

DATA 

FFCSHC/  8*. 163, 

.227,  .263, 

.229, 

5*. 221, 15*0. 556, 

TREFT094 

• 

8*.  199, 

.334,  .396, 

.297, 

5*. 358, 1 5*0. 556, 

TREFT095 

. 6* 

.163,  .198, .291, 

.227,  .263, 

.229, 

4*. 221 ,16*0.556/ 

TREFT096 

TFEFT097 

COID 

START  RATIOS  FOR 

HDV  FROM  SWRI  STUDY  ALL  MCDEL  YEARS  - 

AREAS  TFEFT098 

FIRST 

VALUE  IS  FOP  ALL  HD V , NEXT 

3 ARE 

FCR  GVK  CLASSES 

TREFT099 
TFEFT  100 

DATA 

HDCSCO/  .105,  . 

238,  .076,  . 

033/ 

TREFT10 1 

DATA 

F DCS  HC/  .142,  . 

171,  .139,  . 

131/ 

TPEFT102 

EPA  CRANKCASE  AND  EVAPORATIVE  EMISSIONS  - KIRCHER  1/12/73 
FIRST  J 1 VALUES  ARE  LIGHT-DUTY,  NEXT  31  ARE  HEAVY-DUTY 


DATA  FCRNK/  3*4.1,  5*0.8,  23*0.0, 
. 4.1,  3*0.8,  27*0.0, 
DATA  FEVAP/  11*3.0,  0.5,  19*0.2, 

. 10*3.0,2*0.5,19*0.2, 


8*5.2,23*0.0, 

4*5.2,27*0.0/ 

31*3.0, 

13*3 . 0,18*0.2/ 


EVAPORATIVE  EMISSION  FACTORS  BY  SOURCE  1960-1990  6-CITIES  STUDY 
FIRST  J 1 VALUES  ARE  DIURNAL  LOSS,  NEXT  o 1 ARE  RUNNING  LOSS,  NEXT 
31  ARE  HOT  SCAN  LOSS 


DATA  EEV1  / 

11*26.0,  16.3,19*6.5,  31*0.0, 

31*26.0,  31*0.0, 

DATA  SEV2  / 

11*75.3,  47.2,19*18.9,  31*0.0, 

.,  31*75.3,  31*0.0, 

DATA  SEV3  / 

10*26.0,2*16.3,19*6.5,  31*0.0, 


TREFT  1 0 3 
TREFT  104 
TREFT 10  5 
TREFT106 
TREFT  107 
TR  EFT  1 08 
TREFT 1 09 
TREFT  110 
TR  EFT  1 1 1 
TREFT1  12 
TFEFT  113 
TFEFT  1 1 4 
TFEFT1  15 
TREFT116 
, TP  EFT  117 
TREFT  1 1 8 
TF  EFT  1 IQ 
9TREFT  120 
TREFT  12  1 
TF  EFT  1 2 2 

1 0*  14. 7, 2*10. 9, 19* 4. 4, TFF FT  123 


11*14.7,  10.9,19*4.4, 

31*14.7  / 

11*46.7,  34.8,19*13.' 

31*46.7  / 
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c 

c 

c 

c 


1 3*2fc. C,  1 8*6 .5,  31*0.0,  13*14.7,18*4.4  / 

USEPA  EXHAUST  FMISSION  DET ERIOR AT  ION  FACTORS  1960-1980  LIGHT 
EACH  SET  OF  21  VALUES  REPFFSENTS  THE  AGE  OF  THE  VEHICLE 


DATA  f DtTCO/ 

21*1.00  , 

8*1.0, 

1.24, 

1.42, 

5*1.18 

1.04,  5*1.16, 

8*  1.0, 

1.35, 

1.53, 

5*1.32 

1.30,  5*1.34, 

6*1.0, 

1.41, 

1. 59, 

5*1.38  , 

1.36,  5*1.50, 

8*1.0, 

1.“-\ 

1.63, 

5*1.40  , 

1.43,  5*1.62, 

8*  1 . C, 

1.53, 

1.68, 

5*1.44  , 

1.44,  5*1.75, 

8*1.0, 

1.58, 

1.71, 

5*1.47 

1.49,  5*1.88, 

8*1.0, 

1.63, 

1.75, 

5*1.50 

1.56,  5*2.00, 

8*1.0, 

1.67, 

1.79, 

5*1.51 

1.63,  5*2.10, 

8*1.0, 

1.72, 

1.82, 

5*1.56 

1.69,  5*2.22,  21*1.0, 

6*1.0, 

1.13, 

1.11, 

1.24,  1.42, 

5*1.18,  6*1.16, 

6*1.0, 

1.21, 

1.18, 

1.  35,  1.53, 

5*1.32,  6*1.34, 

6*1.0, 

1.24, 

1.23, 

1.41,  1.59, 

5*1.38,  6*1.50, 

6*1.0, 

1.25, 

1.29, 

1.47,  1.63, 

5*1.40,  6*1.62, 

6*1.0, 

1.2b, 

1.35, 

1.53,  1.68, 

5*1.44,  6*1.75, 

6*1.0, 

1.29, 

1.40, 

1.58,  1.71, 

5*1.47,  6*1.88, 

6*1.0, 

1.31, 

1.46, 

1.63,  1.75, 

5*1.50,  6*2.00, 

6*1.0, 

1.32, 

1. 50, 

1.67,  1.79, 

5*1.51,  6*2.10, 

6*1.0, 

1.34, 

1.56, 

1.72,  1.82, 

5*1.56,  6*2.22  / 

DATA  FCETHC/ 

21*1.00 

8*1.0, 

1.12, 

1.10, 

5*1.05 

1.00,  5*1.14, 

8*1.0, 

1.18, 

1.16, 

5*1.10 

1.13,  5*1.30, 

8*1.0, 

1.21, 

1.18, 

5*1.13 

1.22,  5*1.44, 

8*1.0, 

1.23, 

1.21, 

5*1.15 

1.29,  5*1.55, 

8*1.0, 

1.26  , 

1.  23, 

5*1.17 

1.37,  5*1.67, 

8*1.0, 

1.28, 

1.25, 

5*1.20 

1.43,  5*1.77, 

8*1.0, 

1.30, 

1.28, 

5*1.22 

1.50,  5*1.88, 

8*1.0, 

1.32, 

1.29, 

5*1.24 

1.56,  5*1.96, 

8*1.0, 

1.35, 

1.31, 

5*1.26 

1.63,  5*2.07,  21*1.0, 

6*1.0, 

1.14, 

1.07, 

1.12,  1.10, 

5*1.05,  6*1.14, 

6*1.0, 

1.22, 

1.10, 

1.18,  1.16, 

5*1.10,  6*1.30, 

6*1.0, 

1.25, 

1.12, 

1.21,  1.18, 

5*1.13,  6*1.44, 

6*1.0, 

1.27, 

1.14, 

1.23,  1.21, 

5*1.15,  6*1.55, 

6*1.0, 

1.25, 

1.15, 

1.26,  1.23, 

5*1.17,  6*1.67, 

6*1.0, 

1 .30, 

1.17, 

1.28,  1.25, 

5*1.20,  6*1.77, 

6*1.0, 

1.32, 

1.18, 

1.30,  1.28, 

5*1.22,  6*1.88, 

6*1.0, 

1.35, 

1.20, 

1.32,  1.29, 

5*1.24,  6*1.96, 

6*1.0, 

1.35, 

1.21, 

1.35,  1.31, 

5*1.26,  6*2.07  / 

DATA  FDETNO/ 

21*1. 

00, 

13*1.0,2*1.  11, 

1.00,1 

. 03,4*1. 17, 

13*  1. 0,2*1. 18,1. 18, 1.07,4*1 

13*1.0,2*1.20, 

1.23,1 

.10,4*1.53, 

13*1.0,2*1.21,1.23,1.13,4*1 

13*1.0,2*1.22, 

1.41,1 

.17,4*1.82, 

13*1. 0,2*1. 23, 1.45, 1.19, 4* 1 

13*1.0,2*1.24, 

1.45,  1 

.21,4*2.06, 

13*1.0,2*1.25,1.45,1.24,4*2 

13*1.0,2*1.26, 

1.45,1 

.26,4*2. 32, 

21*1. 

00, 

11*1.0,4*1.11, 

2*1.03 

,4*1.17, 

1 1*  1.0, 4*1. 18,2*1.07,4*1.3  7 

11*1.0,4*1.20, 

2*1.  10 

,4*1.53, 

11*1.0,4*1.21,2*1.13,4*1.67 

11*1.0,4*1.22, 

2*1.  17 

,4*1.82, 

11*1.0,4*1.23,2*1.19,4*1.94 

11*1.0,4*1.24, 

2*1.21 

,4*2.06, 

11*1. 0,4*1. 25, 2*1. 24, 4*2. 17 

11*1.0,4*1.26, 

2*1.26 

,4*2.32/ 

DATA  Ctl/ 

4000.  , 

20400 

.,  35100.,  48830.,  61660.,  73590.,  84590 

94620.,  103750. 
DATA  FCHDCO/  1.00, 

, 111980./ 
1.24,  1.35, 

1.43, 

1. 50, 

1.57, 

1.63, 

1.69, 

1.73,  7*1.77/ 

DATA  FCHDHC/  1.00, 

1.12,  1.18, 

1.22, 

1.25, 

1.28, 

1.  30, 

1.33, 

1.36,  7*1.38/ 

DATA  FCHDNC/  1.00, 

1.11,  1.18, 

1.  20, 

1. 22, 

1.23, 

1. 24, 

1.25, 

TR  EFT  1 2 4 
TR  EFT  1 2 5 
D UT  YTREFT 126 
TPEFT  127 
TREFT  128 
TFEFT129 
TREFT  130 
TREFT 131 
TREFT132 
TREFT  133 
TREFT  1 3 4 
TREFT135 
TREFT 1 36 
TREFT 1 37 
TR  EFT  1 38 
TREFT  1 39 
TREFT 1 40 
TREFT  141 
TREFT 1 4 2 
TREFT 143 
TR  E FT  14  4 
TR  EFT  1 4 5 
TREFT 146 
TREFT  1 47 
TREFT  1 4 8 
TPEFT  1 49 
TR  EFT  1 50 
TREFT 1 5 1 
TREFT  1 52 
TREFT 1 53 
TREFT  1 5 4 
TREFT 1 55 
TREFT  156 
TREFT157 
TREFT158 
TREFT 159 
TREFT160 
TREFT  161 
TREFT 162 
TREFT  163 
TREFT 1 6 4 
TREFT  16  5 
TREFT 166 
TREFT  167 
3 7,  TREFT 1 6 8 
67,  TREFT 169 
94,  TREFT 170 
17,  TREFT 1 7 1 
TREFT  1 7 2 
TREFT 1 73 
TREFT  174 
TREFT175 
TREFT 1 76 
TREFT  177 
TREFT 1 7 8 
, TREFT 179 
TREFT 180 
TREFT  181 
TREFT  182 
TREFT  18  3 
TREFT 1 8 4 
TPEFT 18  5 
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1.27,  7*1.28/ 

DATA  CBH/  4000.,  22360.,  39140.,  54940.,  69900.,  82900.,  95300., 

106300.,  116700.,  125700.,  133650.,  139150.,  144650.,  150150., 

155650.,  161150./ 

USEPA  REGISTRATION  (BID-YEAR)  AND  ANNUAL  TRAVEL 


DATA  REGIS/  .07 

8 

9 

• 

116 

, .110 

, .098, 

. 106, 

.106,  . 

08 

8, 

. 078 

.063, 

. 041  , 

03 

5 

9 • 

021,  . 

060,  0. 

.,  0., 

0., 

.078 

9 

116 

, .110 

, .098, 

. 106, 

.106,  . 

08 

8, 

. 078 

.063, 

.041, 

03 

5 

9 • 

C21,  . 

060,  0. 

, , 0 . , 

0., 

.07 

i 

9 

• 

106 

, .087 

, .081, 

. 084, 

.076,  . 

06 

5, 

.055 

.047, 

. 035, 

03 

7 

9 • 

033,  . 

223,  0. 

..  o.. 

o.. 

.07 

1 

106 

, .087 

, .081, 

. 084, 

. 076,  . 

06 

5, 

.055 

.047, 

. 035, 

s 

03 

7 

9 • 

033,  . 

223,  0. 

, 0., 

0.  , 

.07 

1 

9 

. 

106 

, .087 

, .081, 

. 084, 

.076,  . 

06 

5, 

. 055 

.047, 

. 035, 

037 

9 • 

033,  . 

223,  0. 

, 0 • , 

0., 

.07 

1 

9 

• 

106 

, .087 

, .081, 

. 084, 

.076,  . 

06 

5, 

.055 

.047, 

. 035, 

. 

03 

7 

9 • 

033,  . 

223,  0. 

, 0 . , 

0./ 

DATA  A AT/ 

15900. 

t 

15 

000. 

,14000 

. , 13100. 

, 12200 

. , 11300 

• 9 

10300. , 

8500. , 

7600. 

9 

6 

7 

00. 

, 6700 

. , 6700. 

, 6700 

.,  6700 

• 9 

6700.  , 

15900.  ,15000. ,14000.  , 13100.  , 12200. , 1 1 300. , 10300. , 9 400. , 

6500.,  7600.,  6700.,  6700.,  6700.,  6700.,  6700.,  6700., 

17  200.  ,172  00. ,15800. , 15800. , 1 3000. , 13000. , 1 1000. , 1 1 000. , 

9000.,  9000.,  5500.,  5500.,  5500.,  5500.,  5500.,  5500., 

17200. , 172  00. ,15600.  , 15800. , 13000. , 13000. , 1 1 000. , 1 1 000. , 

9000.,  9000.,  5500.,  5500.,  5500.,  5500.,  5500.,  5500., 

17200.  , 17200  . ,15800. , 15800. , 13000. , 13000. , 11000.,  11 000. , 

9000.,  9000.,  5500.,  5500.,  5500.,  5500.,  5500.,  5500., 

17200. .  17200. .15800. .15800. . 1 3000 .. 1 3000 . . 1 1000. . 1 1 000 . , 

9000.,  9000.,  5500.,  5500.,  5500.,  5500.,  5500.,  5500./ 

DATA  PAAT/  .38, 15*.  30,  .38, 15*.  30,  .37,  15*. 30,  . 37, 15*.  30, 

.37, 15*. 30,  .37, 15*. 30/ 

DATA  WFCTR/  .821,  .100,  .045,  .018,  .010,  .006/ 


CPTICN  DEFAULTS 


DATA  1AUT0,ILDT,IDIESL,IDET,ICRNK,ICLDST,IRTFTR ,IEVAP,RTRCFT, 
. ITIBE, SPEED  / 7*1,2,2*0,19.6  / 

INITIALIZE  DATA  ARRAYS 

IF  (IAUTO.EQ.O)  GO  TO  101 
DC  1 8=1,31 

BYEFCC  (1 , 8)  = FEXCO  (8,  1, IAREA) 

BYEFHC  (1,8)  = FEXHC  (8,1, IAREA) 

BYEFNC  (1 , 8)  = FEXNO  (fl , 1,  IAREA) 

1 CONTINUE 
GC  TC  2 

101  READ  210,  (EYEFCO  (1  ,8)  ,8  = 1 ,31) 

READ  210,  (BYEFHC (1 ,B) ,B=1,31) 

READ  210,  (BYEFNO  (1  ,8)  ,B=1  ,31 ) 

210  FCRBAT  (9F8.0) 

2 IF  (I1DT.EQ.0)  GO  TO  102 
DC  3 8=1,31 

BYEFCC  (2, B)  = FFXCO  (8 , 2 , 1 AREA) 

BYEFHC  (2,8)  = FEX HC  (8 , 2, IAREA) 

BY  EF  NC  (2, 8)  = FEXNO  (8 , 2,  IAREA) 

3 CONTINUE 
GC  TC  4 

102  READ  210,  (BYEFCO(2,B)  ,8=1,31) 

READ  210,  (EYEFHC  (2,8)  ,8=1,31) 


TK  EFT  186 
TREFT187 
TREFT  188 
TR  EFT  189 
TR  EFT  19  0 
TREFT  19  1 
TR  E FT  1 92 
TREFT 193 
TP  EFT  1 9 4 
TREFT  195 
TFEFT196 
TREFT  197 
TREFT  198 
TREFT  199 
TREFT200 
TREFT20 1 
TREFT202 
TREFT20  3 
TREFT204 
TREFT205 
TREFT206 
TR  EFT  207 
TR  EFT208 
TPEFT709 
TREFT210 
TR  EFT  2 1 1 
TREFT212 
TREFT213 
TREFT214 
TR  EFT  2 1 5 
TPEFT216 
TPEFT2  17 
TREFT21B 
TREFT219 
TPEFT220 
TREFT22 1 
TREFT222 
TREFT223 
TBEFT224 
TREFT  22  5 
TREFT226 
TREFT227 
TEEFT228 
TREFT229 
TREFT230 
TREFT23 1 
TF.EFT232 
TPEFT2?  3 
TREFT234 
TREFT235 
TREFT236 
TREFT237 
TREFT238 
TREFT239 
TREFT  ,.40 
TF  EFT24  1 
TREFT242 
TREFT243 
T R EFT  244 
TF  EFT245 
1 REFT24b 
Tf  EFT247 


L 
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READ  *.10,  <BYEFNC(2,B)  ,B  = 1,31) 

4 IB=IHCV+1 

IF  (IH-2)  103,5,7 

5 DC  6 B=1, 31 
DC  6 J=3, 5 

BYEFCC  ( J , B)  = FEXCO(fl,3,IAREA) 
BYEFHC  (0,  B)  = F E X DC  (PI  , 3 , 1 AREA ) 

BY  E F NC  (J  , B)  = FEXNO(B,3,  IAREA) 

6 CCNUNUE 
GC  TC  9 

7 DC  8 B=1, 31 
DC  8 J = 3, 5 

BY EFCC  ( J , fl)  = HDVCO  (B  ,J-2, IAREA) 
B Y EF  NC ( J , B)  = HCVNO  (B  ,0-2,  IAREA) 
BYEFHC  (J, B)  = HDVHC  (B  ,0-2, IAREA) 

8 CCNUNUE 
GC  1C  9 

103  DC  104  0 = 3,5 

READ  210,  (BYEFCO (J,B)  ,B=1  ,31) 
READ  210,  (EYFFHC(J,B) ,B=1,31) 
READ  210,  (BYEFNO  (J ,B)  ,S=1 ,31) 

104  CCNUNUE 

9 IF  (IDIESL.EC.O)  GO  TO  106 
DC  105  B=  1 , 3 1 

BYEFCC  (6, B)  = FDEFCO(B) 

BYEFHC  (6, B)  = FDEFHC(fl) 

B YEF  NC  (6 , B)  = FDEFNC(H) 

1 05  CONTINUE 
GC  TC  107 

106  READ  210,  (BYEFCC (6 , B ) ,3=  1 ,3 1 ) 
RFAE  210,  (BYEFHC (6, B) ,B=1,31) 
READ  210,  (BYEFNO  (6,B)  ,B=1,31) 

107  ICT=IDEI*1 
IAD=BAX0(IAREA-1, 1) 

IF  (ICT-2)  118,108,115 

1 08  DC  111  0=1,2 
DC  11C  N=1, 10 
DC  1C9  B= 1 , 2 1 

DETCC  (J , B , N) =FDETCO (B,N,IAD) 
DETHC  (0,B,  N)  =FDETHC  (B,N,  I AD) 
DETNC  (J,B, N) =FDETNO (1 ,N,I AD) 

109  CCNTIN'JE 

DC.  11C  fl  = 22 ,31 

DETCC  (J,B, N) = F D ET C 0 (21 ,N ,1AD) 
DETHC  (J,B, N) =FDETHC (21 ,N ,1  AD) 
DETNC  (0,B,N)  =FDETNO(21,N,IAD) 

110  CCNTINUE 

DC  111  N= 1 1 , 16 
DC  111  B= 1 , 3 1 

DETCC  (J,B,N)  = DETCC (J, B, 10) 

DETHC (J,R,N) =DETHC ( J , B , 1 0) 

DETNC  (J,B, N) =DETNO (J, B,  10) 

111  CCNTINUE 

DC  112  J=  3 , 6 
DC  112  N=  1 , 16 
DC  112  11=1,31 
DETCC  (.l,H,N)  = 1.0 
DETHC (J,B  ,N) =1.0 
DETNC  ( J , B , N)  = 1.0 
1 12  CCNTINUE 

IF  (IAREA. NE.3)  GO  TO  120 
DC  113  0=3,5 


TREFT248 
TREFT2U9 
TREFT250 
TR  EFT  2 5 1 
TREFT252 
TREFT253 
TREFT254 
TREFT255 
TREFT256 
TREFT257 
TR  EFT  2 5 8 
TREFT259 
TREFT260 
TREFT26 1 
TREFT262 
TREFT26  3 
TREFT264 
TREFT26  5 
TREFT266 
TREFT267 
TREFT268 
TREFT269 
TREFT270 
TREFT27 1 
TFEFT272 
TREFT27  3 
TREFT274 
TREFT27  5 
TREFT276 
TREFT277 
TREFT278 
TREFT270 
TREFT280 
TREFT28 1 
TREFT282 
TREFT28  3 
TR  EFT  28  4 
TREFT285 
TFEFT286 
TREFT287 
TREFT288 
TFEFT289 
TREFT290 
TREFT29 1 
TR  EFT  29  2 
TREFT293 
TFEFT294 
TREFT295 
TREFT296 
TPEFT297 
TFEFT298 
TFEFT299 
TPEFT300 
TREFT30 1 
TREFT302 
TR  EFT  30  3 
TREFT304 
TREFT305 
TREFT306 
TREFT307 
TREFT308 
TREFT309 
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DC  113  «= 1 6 , 3 1 

DC  113  N= 1 , 16 

DETCC  (J  , H , N)  = FCHDCO(N) 

DETHC  ( J , M , N)  = FCHDHC(N) 

DETNC  (J, M, N)  = FCHDNO(N) 

113  CCNTINUE 
115  GC  1C  120 
C 

C MILEAGE  DEPENDANT  DETE R IOB ATIO N FAC10RS  WILL  BE 

C INITIA1 I?ED  AFTER  P EGISTR AT  ION  DATA  IS  INPUT 

C 

118  DC  115  J=1,b 
DC  115  (1=  1 , J 1 

PEAL  230,  (DETCO  (J , M, N)  , N=  1, 16) 

READ  230,  (EETHC(J,M,N) ,N=1,16) 

READ  230,  (DETNC  (J , M , N)  ,N  = 1 ,16) 

230  FCRflAT  ( 16  F 5 . 0) 

119  CONTINUE 

120  IF  (ICFNK.EC.O)  GO  TO  122 
DC  121  (1=1,31 

CRER  ( 1 ,K)  = FCRNK  (M, 1 , I A D) 

CREF  (2  , (1)  = FCRNK  («1,  1 , IAC) 

CREF  ( 3 , M)  = FCRNK  ((1 ,2  ,IAD) 

CREF  (4  , M)  = FCRNK(«,2,IAC) 

CREF  (5,(1)  = FCRNK  ((1 ,2  , IAD) 

CREF  (6,(1)  = 0. 

121  CONTINUE 
GC  TC  1^4 

122  DC  123  J=  1 , 6 

READ  *10,  (CREF  (J,tl)  ,11=1,31) 

123  CONTINUE 

124  IE  (IEVAP-1)  130,125,125 

125  DC  126  11=1,31 
EVEF(1,M,2)  = FEVAP  (H , 1 , IAD) 

E VEF  (2,0,2)  = FEVAP (B, 1, IAD) 

EVER  (3  , (1 , 2)  = FEVAP  (11,2, IAD) 

EVEF  (4,  (1,2)  = FEVAP  ((1 , 2,  IAD) 

E VEF  ( 5 , II,  2)  = FEVAP  ((1,2, IAD) 

EVER  (6,11,2)  = 0. 

126  CONTINUE 

127  IF  (IAPEA-2)  501,502,503 

501  DC  511  11=1,31 
DC  511  K=  1 , 3 , 2 

EVER  ( 1 ,(1,K)  = SEV  1 (tl,  K,  1) 

EVER  (2  , (1,  K ) = S E V 1 (M,K,1) 

EVEF  (3,(1,K)  = SEV1((!,K,2) 

EVEF  <4,tl,K)  = SEV  1 ( (1 , K , 2 ) 

EVER  (5 , (1 , K)  = S E V 1 (II, K, 2) 

EVEF  (6,  (!,  K)  = 0. 

511  CCNTINUE 
GC  TC  135 

502  DC  512  11=1,31 
DC  512  K = 1 , 3, 2 

EVEF  (1,H,K)  = SEV 2 (H , K , 1 ) 

EVEF  (2 , (1,  K)  = SEV2  ((1,K,  1) 

EVEF  (4,M,K)  = SEV2  (H , K ,2) 

EVER  (3  , R, K)  = SEV  2 (R,K,2) 

EVEF  (6,R,K)  = 0. 

EVER  (5,  fl, K)  = SEV2  (H,K,2) 

512  CONTINUE 
GC  TC  1 j5 

5C3  DC  513  R=1,31 


TREFT  310 
TREFT311 
TR  EFT  3 1 2 
TREFT31 3 
TREFT  31  4 
TFEFT315 
TREFT316 
TREFT3  17 
TREFT318 
TREFT319 
TREFT320 
TREFT  32  1 
TREFT322 
TFEFT323 
TREFT324 
TREFT  325 
TREFT326 
TREFT327 
TFEFT328 
TREFT329 
TR  EF  T 33  0 
TFEFT33 1 
TR  EFT  3 32 
TREFT333 
TREFT  33  4 
TREFT335 
TREFT3  16 
TP  E FT  J 37 
TPEFT33R 
TFEFT339 
TREFT  340 
TREFT34  1 
TREFT  342 
TREFT 3 43 
TFEFT344 
TR  EFT  34  5 
TREFT346 
TR  EFT  34  7 
TREFT348 
TREFT34S 
TREFT350 
TREFT351 
TR  E FT  352 
TREFT353 
TREFT  354 
TREFT355 
TP  EFT  356 
TREFT357 
TREFT  358 
TREFT359 
TREFT360 
TPEFT36 1 
TREFT  36  2 
TREFT36  3 
TREFT364 
TREFT  365 
TREFT366 
TREFT  36  7 
TREFT368 
TREFT  369 
TREF1370 
T°FFT371 
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DC  6 13  K = 1 , 3 , 2 

TREFT  372 

FVEF  ( 1 ,M, F)  = 5EV  1 (M, K,  1) 

TREFT37  3 

EVEF  (2,M, K)  = SLV  3 (M, K , 1 ) 

TREFT37  4 

EVER  (3  , M, K)  = SEV3 (M, K,2) 

TREFT375 

EVEF  (4,M,K)  = SEV3  (M , K ,2) 

TREFT  37  6 

EVFF  (5 , M, K)  = SEV3(M,K,2) 

TREFT377 

EVEF  (6,H,K)  = 0. 

TR  EFT  378 

s 1 3 

CONTINUE 

TREFT  379 

GC  TC  135 

TREFT  380 

130 

DC  131  J=1 ,6 

TREFT38 1 

DC  131  K= 1 , 3 

TREFT382 

READ  210,  (EVEF  (J,M,K)  ,M=1,31) 

TR  EFT  38  3 

131 

CCNTI NUE 

TREFT384 

135 

IF  (ICLDST.EQ.O)  GO  TO  140 

TREFT385 

DC  139  M=1 ,31 

TREFT 386 

RCSCC  ( 1 , M)  = FFCSCO  (M  ,IAREA) 

TREFT387 

RCS HC  ( 1 , M)  = FFCSHC  (M , I AREA) 

TREPT388 

RCSCC  (2 , M)  = FFCSCO (M, IAREA) 

TREFT389 

RCSHC  (2  , M)  = FFCSHC  (M  , I AFEA) 

TREFT390 

RCSCC  (6 , M)  =0. 

TREFT39 1 

RCSHC  (6 , M)  =0. 

TREFT392 

IF  (IHDV.EQ.2)  GC  TO  137 

TREFT  39  3 

DC  136  J=  3 , 5 

TREFT394 

RCSCC  ( J , M ) = H DC SCO (1) 

TREFT395 

RCSHC  <J,M)  = H DCS  HC ( 1 ) 

TREFT396 

1 36 

CONTINUE 

TREFT  397 

GC  TC  139 

TREFT393 

137 

DC  136  J=  3 , 5 

TR  EFT  399 

RCSCC  (J,M)  = HDCSCO(J-I) 

TREFT400 

RCSHC  (J , M)  = HDCSHC(J-I) 

TR  EFT  40 1 

138 

CONTINUE 

TREFT402 

139 

CONTINUE 

TREFT40  3 

GC  TC  142 

TREFT404 

140 

DC  141  J=1 , 6 

TREFT  405 

READ  210,  (RCSCC (J, H)  ,M=  1, 31) 

TREFT406 

READ  210,  (RCSHC  (J,M)  ,H=1, 31) 

TREFT407 

141 

CONTINUE 

TREFT408 

1 42 

IF  (IAAT.NE.O)  GO  TO  1247 

TREFT  409 
TREFT4 10 

IYEAR1=YEAR-1 

TREFT41 1 

IYEAF2=YEAR-2 

TREFT  412 

PRINT  1197,  YEAR.IYEAR1, IYEAR2,TRETIT 

TREFT4 13 

1197  FORMAT  (1H0, 1 3 X , 70 H D I S T RI BUTIO N OF  VEHICLE  CLASSES  (BREAKDOWN  BY  AGTREFT414 

• E,  0 THROUGH  15  YEARS) ,6H,  0=  ,14, 5H,  1=  ,14, 5H,  2 = , I 4 ,3  ( 1 X , 1 H. ) TREFT4 1 5 

. /1H0,5HCLASS,8H  OPTION  ,2 X , 1 6 ( 1 H ( , I 2, 1 H)  , 3X) ) TREFT4 16 

DC  1 4 j J=  1 , 6 TREFT4 1 7 

READ  205,  JJ,CPT(JJ)  , (FFGIS(N,JJ)  ,N  = 1,16)  TREFT418 

205  FORMAT  (2  (I2,2X)  , 16F4. 4)  TREFT419 

IF  (CET  (JJ) . EC. 0)  PRINT  1198,  JJ , OPT ( JJ)  , (RFGIS  (N , J J)  , N = 1 , 1 6)  TFEFT420 

IF  (OPT  (JJ)  .EQ.  1)  PRINT  1198,  J J , CPT ( JJ ) , ( REGIS (N , J J)  , N= 1 , 1 6 ) TREFT42 1 

1198  FORMAT  ( 1H  , I 4 , 4 X , 1 3 , 4 X , 1 6 ( F4 . 3 , 3 X ) ) TREFT422 

143  CONTINUE  TREFT423 

PRINT  1196  TPEFT424 

1196  FORMAT  (1HO,5X,30HOPT1CN  0 IS  USER  SUPPLIED  DATA  / 6X.24HOPTION  1 ITREFT425 


.S  DEFAUIT  DATA  ) 

DC  1246  1=1,6 

IF  (CFT  (I)  . EC-  1 ) GO  TC 

DC  1243  J=1  , 16 

1243  RAG IS  (J,I) = RFGI S (J , I ) 
GO  TC  1246 

1244  DC  U4S  J = 1,  1( 

1245  RAGIS  (J,I) = RE CIS  (J, I) 


1244 


TR  EFT  426 
TREFT427 
TREFT428 
TREFT4  29 
TREFT430 
TREFT43 1 
TREFT432 
TP  EFT  4 3 3 
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I 


1246  CONTINUE 
GC  1C  144 

C 

1247  DC  1248  1=1,6 
DC  124e  J = 1 , 16 

1248  RAG1S  (J,I) =FEGIS (J, I) 

144  DC  145  J = 1 , 6 
SUfl (0) =0. 0 

DC  145  N=  1 , 16 

P1FVL  ( J , N) =FAGIS(N,J)  * A AT  ( N , J ) 
sun  (J)  =sun  (J)  *ptrvl  (j  , n) 

145  CCNTINUE 

DC  146  J=  1 ,6 
DC  146  N = 1 , 16 

PTFiVl  (J,N)  =PTPVl  (J,N) /SUH(J) 

146  CCNTINUE 

IF  (1NTITR.NE.0)  GO  TO  147 
READ  210,  WFCTR 

147  CONTINUE 

IF  (ICE1. NE.2)  GO  TO  199 
C 

DC  160  J=  1 , 2 
XM1LEE=0.C 
DC  16C  N=  1 , 1 6 
XNIliS=XNIlES+AAT(N,J) 

XK  = XfllES  - AAT  (N,  J)  * ( 1. -PAAT  (N,J)  ) 

DC  151  N 1 = 1 , 1 0 

IF  (xr. IE.cn  (N1) ) GO  TO  154 

151  CCNTINUE 

DC  152  H=1 ,21 

DETCC  (J,H,N)  = FTETCC (H,  10,IAD) 

DETHC  (J , n , N)  = FDETHC (n, 10,IAD) 

DET NC  (J , n , N)  = FDETNO  (H,  10,IAD) 

152  CCNTINUE 

DC  153  tt=22,31 

DET  CO  (J,n,N)  = DfcTCO  ( J , 2 1 , N) 

DETHC  ( J , H , N)  = DET  HC  (J  , 2 1 , N) 

DETNO  (J  , n , N)  = DETNO  ( J , 2 1 , N) 

153  CCNTINUE 
GC  TC  160 

154  IE  (N 1 .NE.  1)  GO  TO  156 
DC  155  11=1,31 

DETC C ( J , H , N ) = 1.0 
DETHC  (J,n,N)  = 1.0 
rET  NC  (J , H , N)  = 1.0 

1 55  CCNTINUE 
GO  TC  160 

156  DC  157  H=  1 , 2 1 

DETCO  (J  , n , N)  = (EDETCC  (B,N1,I  AD)  - FDETCO  (H  , N 1 - 1 , I AD)  ) / 

. (CH  (N1 ) -CH  (N  1-1 ) ) * (Xn-CH(NI-I)  ) + FDETCO(H,N1-1,IAC) 
DETHC  (J , n , N)  = (FDETHC  (H,N1, 1 AD) -FDETHC  (M  , N 1 - 1 ,IAD)  ) / 

. (CH(NI)-CH(NI-I))*  (XS-CB(NI-I))  * FD  ET  HC  (H  , N 1 - 1 , I A D) 
DET  NC  (J , n , N)  = (EDETNC (H,N1,IAD) -FDETNO  (n,N1-1,IAD)  ) / 

. (CH(NI)-CH(NI-I)  ) * (XH-CH(NI-I)  ) ♦ FDET  NO  (H  , N 1 - 1 , I A D) 

157  CCNTINUE 

DC  1 5 e n = 22,31 

DETCC  (J,n,N)  = DETCO  (J  ,2  1 ,N) 

DETHC  (J  , H , N)  = DETHC  (J  , 2 1 , N) 

DETNC  (J  , n , N)  = DETNO  ( J , 2 1 , N) 

158  CCNTINUE 
160  CCNT I NUE 

DC  16  1 J=  .3 , 6 


TREFT434 
TFEFT43  5 
TREFT436 
TREFT437 
TPEFT43R 
TREFT439 
TP  EFT  4 40 
TREFT44  1 
TPEFT442 
TREFT443 
TREFT444 
TREFT445 
TREFT446 
TR EFT  44 7 
TREFT44  8 
TPEFT449 
TFEFT450 
TP  EFT  45 1 
TFEFT452 
TREFT453 
TREFT454 
TREFT455 
TREFT456 
TPEFT457 
TREFT458 
TREFT459 
TREFT460 
TREFT461 
"’REFT462 
TREFT463 
TFEFT464 
TF,  EIT465 
TREFT466 
TFEFT467 
TREFT469 
TPEFT469 
TREFT470 
TPEFT4T1 
TP F FT  47  2 
TREFT473 
TPEFT474 
TPEFT475 
TR  EFT  4 76 
TREFT477 
TFEFT478 
TPEFT479 
TREFT  480 
TPEFT48 1 
TPSFT4R2 
TR  EFT  48  3 
TREFT484 
TREFT48S 
TREFT  486 
TPFFT487 
TFEFT48P 
TPEFT489 
TP  EFT  49  0 
TF  EFT44  1 
T P E F T 4 u ’ 
TFEFT443 
T REFT  49  4 
TR  Cl T4 9 5 
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non  non 


DC  1t1  .1  = 1 ,31 
DC  HI  N = 1 , 1 6 
DETCC  (J,H,N)  = 1.0 
DETHC  (J,H,N)  = 1.0 
DET NC  (J,  It,  N)  = 1.0 
HI  CONTINUE 

IE  (I  AREA. NE. j)  GO  TO  190 

DC  170  J = 3 , 5 

X HI L E S = 0.0 

DC  17C  N=  1 , 1b 

XHIIES  = XHILES  * AAT  (N,  J) 

XM  = XHILES  - AAT (N, J) * (1. -PAAT (N,J) ) 

DC  102  N 1 = 1 , 16 

IF  (XH.LE.CHH  ;N1) ) GO  TO  164 
1fc2  CONTINUE 

DC  163  H=  1 6 , 3 1 

DETCC  (J,H>N)  = FCHDCO  (16) 

DETHC  (J  , H , N)  = FCHDHC(16) 

DETNC  (J,  N,  N)  = F'CH D NO  ( 1 6 ) 

163  CONTINUE 
GC  TC  170 

164  IF  (N1.EC.  1)  00  TO  170 
DC  HE  (1  = 16,31 

DETCC  (J,H,N)  = (FCHDCC  (N1)  -FCHDCO  (N  1 - 1 ) )/ (CHH  (N1) -CMH  (N  1-1)  ) 
* (XH-CHH  (N1-1)  ) «•  FCHDCO(NI-I) 

DETHC  (J  , H , N)  = (FCHDHC  (N  1) -FCHDHC  (N1- 1)  )/ (CHH  (N1) -CHH  (N  1- 1)  ) 
. * (XH-CHH  (N1-1)  ) ♦ ECHDHC(NI-I) 

DETNC  (J , H , N)  - (FCHDNC  (N 1) -FCHDNO (N1- 1)  )/ (CHH  (N 1) -CHH  (N 1-1) ) 
. * (XH-CHH  (N  1 - 1 ) ) ♦ ECHDNO(NI-I) 

165  CONTINUE 
170  CONTINUE 
159  CONTINUE 

ENTRY  TFENTB (CLDSTR, EXEHI ,CSCO,CSHC, EVAP, CRANK) 

CAICUIATE  EHISSION  FACTORS 

SFCCC  = 12.5  * ( (SPEED) ** (-0.  H45)  ) 

IF  (SPEED. EC. 19.6)  SPDCO  = 1.0 
SFDHC  = 7 . C * ( (SPEED) ** (-0.  649) ) 

IF  (SPEED. EC.  19.6)  SPEHC  = 1.0 
SFDNO  = 1.0  ♦ (SPEED- 19. 6) *0. 0 1262 
DC  11  J = 1 , 5 
SCC  ( J ) = SPDCC 
SHC  (J) = SP D HC 
S NC (J) =SPDNC 
11  CCNTINUE 
SCC (6)  = 1. 0 
SHC  (6) =1.0 
SNO (6) =1.0 

INITIALIZE  YEARLY  EHISSICN  FACTORS 

DC  12  I = 1,31 

DC  12  K = 1,6 

Y E F CO  ( K , I ) = R Y EFCO  (K  , I ) 

Y EF  HC  (K , I ) = EY  EFHC  (K  , I) 

YEFNC  ( K , I ) = EYEFNO  (K,I) 

1Z  CCNTINUE 

IE  (BTBOFT)  21,25,23 
21  OC  22  J= 1 , 6 


TBEFT496 
TREFT4  17 
TBEFT498 
TBLFT499 
TBEFT500 
TR  E FT  50  1 
TREFT502 
TREFT503 
TREFT504 
TREFT505 
TREFT506 
TREFT507 
TREFT^Ofi 
TREFT509 
TREFT5 1 0 
TP  EFT  5 1 1 
TREFT512 
TREFT51 3 
TREFT51  4 
TPEFT51 5 
TREFT516 
TREFT5  1 7 
TREFT5  1 8 
TREFT5 19 
TREFT520 
TREFT52 1 
TREFT522 
TR  EFT 52  3 
TREFT524 
T REFT  52  5 
TREFT526 
TREFT527 
TREFT528 
TR  EFT  529 
TREFT530 
TREFT531 
TREFT532 
TBEFT533 
TREFT534 
TREFT535 
TREFT536 
TREFT537 
TFEFT538 
TREFT539 
TR  EFT 54  0 
TPEFT54  1 
TREFT54  2 
TRSFT543 
TREFT544 
TREFT545 
TP  EFT  546 
TREFT547 
TREFT548 
TREFT549 
TREFT550 
TREFT55 1 
TREFT552 
TREFT553 
TR  EFT  554 
TREFT555 
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RIAL'  210,  (ETROCO  (J  ,(1)  ,M=1 ,31 ) 

TREFT558 

READ  ,.10,  (RTPOHC (J ,M)  ,11=1,31) 

TREFT559 

READ  210,  (RTPONO  (J  ,fl)  ,(1=1  ,31) 

TREFT560 

22 

CONTINUE 

TREFT56 1 

23 

DC  24  (1=1,31 

TREFT562 

DC  24  J=1 ,6 

TREFT56  3 

YEFCO  ( J , n ) =YErCO  (J,  H)  * (1  .-RTROCO  (J,M)  ) 

TREFT564 

YEFHC (J,M) =YEFHC  (J , (1) • (1 . -RTROHC  ( J, d)  ) 

TREFT565 

YEFNO  (J,(1)  =YEFNO  (J,  H)  * (1. -RTPONO  (J,  H)  ) 

TREFT566 

2 4 

CCNTINUE 

TREFT567 

25 

DC  26  J=  1 , 6 

TREFT568 

CECO  (J) =0. 0 

TREFT569 

CSHC  (J) =0.0 

TREFT57  0 

26 

CONTI NUE 

TPEFT571 

TREFT572 

30 

IF  (CLDSTR. EC-0)  GO  TC  40 

TFEFT573 

DC  33  P=1,31 

TREFT57  4 

DC  31  J= 1 , 6 

TPEFT575 

Y EFCSC  (J,  (1)  =YE  FCC  (J  , (1)  *7.  c *RCSCO  (J,  H) 

TREFT576 

YEFCSH  (J, A) = YEFHC (J,H) *7. 5*RCSHC  (J, H) 

TREFT577 

31 

CCNT I NUE 

TREFT578 

DC  32  J = 1 , 2 

TREFT579 

YEFCC  (J,  (1)  =YEECO  (J  , M)  • ( 1.  - . 43*hCScO  ( J , 11)  ) 

TREFT580 

YEFHC  (J,  (1)  = YEFHC  (J  , 1)  * ( 1 . - . 4 1 * PCS  HC  (J  , (1)  ) 

TREFT58 1 

32 

CCNT I NUE 

TPEFT582 

33 

CCNTINUE 

TREFT583 

DC  3!  J= 1 , 6 

TR EFT  58  4 

K = YEAF  - 1958*11  I HE 

TREFTS85 

DC  35  N= 1 , 16 

TREFT586 

K = HAX  0 (K-  1 , 1) 

TPEFT587 

CSCO  ( J ) =C SCC  (J)  ♦ PT  fi  VL  (J,N) * YEFCSC  (J , K ) * DETCC  (J, K, N) 

TREFT588 

CSHC  (J) =CSHC (J)  ♦ PT  P V L (J, N) * YEFCSH  (J , K ) *DETHt  (J, K, N) 

TP  EFT589 

35 

CCNTINUE 

TFEFT590 

TPFFT59  1 

40 

DC  41  J= 1 , 6 

TREFT592 

DC  41  L= 1 , 3 

TFEFT59  3 

EXEHI  (J,L) =0.0 

TREFT594 

41 

CCNTINUE 

TREFT  59  5 

DC  42  J=  1 , 6 

TREFT596 

K=YEAR-1958*1TIHE 

TPEFT597 

DC  42  N=  1 , 1 6 

TFEFT59P 

K = HAXC  (K-1 , 1) 

TR  EFT  59  9 

EXEHI  (J, 1) =EXEHI  (J,  1)  ♦YEFCO(J.K)  *DETCO(J, K,N) *SCO  ( J)  *PTR VL ( J , N) 

TREFT600 

EXEHI  (J,2)  = EXEH  I (J ,2)  ♦YEFHC(J,K)  * DETHC ( J , K , N)  *S HC  ( J ) * PT R VL  (J  , N ) 

TREFT60  1 

EXEHI  ( J , 3 ) = EXE!1I  (J,3)  *YEINO(J,K)  * DET  N 0 (J  , K , N ) *S  NO  (J ) *PTRVL  (J  ,N) 

TREFT602 

42 

CCNTINUE 

TFEFT603 

DO  61  J = 1 , 6 

TPEFT604 

CRANK  (J)  =0.0 

TREFT605 

DC  t 1 1 = 1,3 

TPEFT606 

EVAF  (J, I) =0. 0 

TREFT607 

61 

CCNTINUE 

TREFT60R 

DC  62  J=1,6 

TREFT609 

K=YEAR-195e*ITIHE 

TREFT610 

DC  62  N= 1 , 1 6 

TREFT6 1 1 

K = HAX0 (K-  1,1) 

TREFT612 

CRANK (J)=CPANK  (J)  ♦ CP  E F ( J , K) * PT  R V L ( J , N ) 

TFEFT61 J 

DC  62  1=1,3 

TREFT6 1 4 

EVAF  ( J , I)  = EV  AT  (.1 , 1 ) ♦ EV EF  (J  , K , I)  *PTRVL  (J  ,N) 

TREFT61S 

62 

CCNTINUE 

TRFFT6 1 6 

NEXCC=C.O 

TP.FFT61  7 

NIX HC =0.0 

TREET6  18 

HEX NC =0.0 

TP  EFT6  19 
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WC  SC  C = 0 . 0 

TREFT620 

WC  S HC  = 0 . 0 

TREFT62 1 

KtBNK-U.U 

TREFT622 

DC  PI  1-1,3 

TREFT62  3 

WEVAP  (I) =C.O 

TREFT62U 

CONTINUE 

TREFT625 

DC  62  J= 1 , 6 

TREFT626 

WEXCC  = WEXCC*EXE11I  (J  , 1) *WECTR ( J) 

TREPT627 

NEXHC  = HEXHC*EXE«I (J ,2)  * WFCTR ( J) 

TREFT628 

HEXNC  = KEXNC*EXE(1I  (J,3)  *WFCTR(J) 

TREFT629 

KCSCC=WCSCC*CSCC (J)  * W f CTR ( J) 

TREFT630 

WCSHC =KCSHC»CSHC (J)  *NECTR(J) 

TREFT631 

fc'CRNK=WCRNK*CFANK  (J)  *WfCTR(J) 

TREFT632 

DC  82  1=1,3 

TREFT633 

WEVAP  (I)=NEVAF(I) ♦ E V A P ( J , I ) ♦PFCTR  (J) 

TREFT6  3tt 

CONTINUE 

TREFT635 

RETURN 

TREFT636 

END 

TREFT637 

SUBROUTINE  TRNFLT 


This  subroutine  sets  up  a training  flight  path  for  each  air- 
craft type  used  at  airbase  and  calculates  the  annual  emissions 
due  to  training  flight  operations. 


Basic  aircraft  data,  annual  training  flights. 


Points  in  training  flight  path,  annual  training  flight  emissions. 


Subroutines 

Called: 

None 


Purpose: 


Input : 

Output : 
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SUBROUTINE  TEN F LT 
C 

C THIS  ROUTINE  SETS  UP  THE  TRAINING  FLIGHT  PATHS  FOE  ALL 
C AIRCRAFT  TYPES  USED  AT  THE  AIRBASE  AND  CALCULATES  THE 
C ANNUAL  EMISSIONS  DUE  TO  THESE  OPERATIONS 
C 
c 

REAL  LNDSPD 
INTEGER  ENGNO 
REAL*8  AC  N A ME , EG N AM  E 

C 

COMMON  /ACEDB1/  ACEH FC  (50 , 1 0 , 6 ) , ACNAM  E(5Q) , EGN  AM  E (50)  .ENGNO (50, 2)  , 
. ASCNT1  (50)  ,ASCNT2  (50) ,TXISPD (5  0)  .LNDSPD (50)  ,APSPD1 (50)  ,COHT1(50)  , 
. APSPD2  ( 50)  , TOSPD  ( 5 0)  , COSPD1  (50)  ,COSPD2  (50)  ,SRTUPT(50)  ,DSCNT1  (50)  , 
. EGCHKT  (50)  , SHTDNT  (50  ) .DSCNT2  (50)  , APPHT,  APPHT2(S0)  , CLMBHT,  TOUT  (50) 
COMMON  /ACEDB2/  N AC TY P , NR N W YS , NPK AR , I EG FLG , I ACT Y P (8 ) , AN  NA R P (8)  , 

. ANNDEP(8)  , A N N T G 0 ( 8 ) , ARRFCN (24,8,6),  DEPFCN (24, 8,6) , TGO  (3,4,8), 

. DISRNW  (6)  , RNWY  (7,6)  , IUSWD(20,6>  , RN4  Y AR  (8 , 6)  , h N W Y DP  ( 8 , 6)  , ACFUEL  (8) 
., AFFLVT(8)  , DPFLVT(8)  , ACSPIL(6)  , A R SVE M (6 , 8 , 5 ) .DPSVEM (6,8,5)  , 

. NIBTT  (6)  .NIBS  EG  (8  ,6)  , TIBS  EG  (16, 8, 6)  , IDIBTW  (8,6)  .TTARFR  (8,8,6)  , 

. NOBTT  (6)  , NO BSEG  (8 , 6)  , TOB SEG ( 1 6 , 8 ,6)  .IDOBTU (8,6)  , TTDPFP ( 8, 6, 6)  , 

. NPASC  (6)  ,1  DPRKA  (6)  , P AREA  ( 6,  3 , 3)  , IDIBPA  (8 ,6  ) , IDOBPA  (8,6), 

. NLSEGS.ACLNSG  (12,25) 

COMMON  /TOTS/  TO TEM ( 2 0 , 6)  , TOTE  VP  ( 1 0)  , E MI SS  (8 , 1 5 ,6 ) , AC  EM  (8 , 6) 

COMMON  /DEFALT/  NPLTS 

C 

DC  10  I = 1 , N ACTY P 
DO  11  J= 1 , 3 
DC  11  K = 1 , 4 
11  TGO  (J,K,I) =0.0 

CONSIDER  ONLY  THOSE  AIRCRAFT  INVOLVED  IN  TRAINING  FLIGHTS 

IF  (ANNTGO(I)  .LE.  0.0)  GO  TO  10 
ID=IACTYF  (I) 

TIME  SFENT  ON  RUNWAY  - ASSUMES  A DISTANCE  OF  1000  FEET 
TIM =2 .0*0.3  048/ (1. 3*LNDSPD(ID)  +0. 7* TOSPD (ID) ) 

GROUND  PROJECTED  DISTANCES  FOR  APPROACH  AND  CLIHbOUT  PATH  PHASES 
TGO  ( 1,  2,  I)  =-  APPHT2(ID)  /TAN  (DSCNT2  (ID)  ) 

TGO ( 1 ,1 ,1) = TGO ( 1 ,2,1)  -( APPHT-APPHT2 (ID) )/TAN (DSCNT1  (ID) ) 

TGO (1 , 3,  I ) =0. 304S*COHT1 (ID)/TA N (A  SC  NT  1 (ID) ) 

TGO  (1,4,  I)  =TGO  ( 1,  3,  I)  ♦ (CLMBHT-COHT1  (ID)  ) /TAN  (ASCNT2  (ID)  ) 

DISTANCES  FOR  EACH  PHASE 

TGO  (2,  1,  I)  = (APPHT-APPHT2  (ID)  ) /SIN  (DSCNT1  (ID)  | 

TGO  (2, 2, 1)  = APPHT2(ID)  /S  IN  ( DS  C NT2  ( ID)  ) 

TGO  (2,3,1) =COHT  1 (ID) /SIN  (ASCNT1  (ID) ) 

TGO  (2,  4,  I)  = (CLMBHT-COHT1  (ID)  ) /SIN  (ASCNT2  (ID)  ) 

TIME  SFENT  IN  EACH  PHASE 

TGO  (3,  1,  I)  =2.0*  TGO  (2,  1,1)  /(APSPD1  (ID)  ♦APSPD2(ID)  ) 

TGO (3 ,2,1) =2 . 0*TGO (2,2,1) / (APS  PD2 (ID)  ♦LNDSPD(ID) ) 

TGO  (3,3,  I)  =2.0*  TGO  (2 , 3 , 1 ) / (TOSPD  (ID)  *COSPD1  (ID)  ) 

TGO  (3, 4, I)  =2.0* TGO (2, 4,1) / (CO SPD 1 (ID) *COSPD2 (I D) ) 

CALCULATE  ANNUAL  EMISSION  FOP  EACH  OF  THE  5 PHASES  AND 
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C ACCUMULATE  IN  AIRCRAFT  EMISSIONS  MODE  15 

C 

DO  2 0 K=1,NPL1S 

EMISS (I  , 1 5 , K) = EMISS (1,15, K) ♦ ( 0 . 3 *TIM* ACEM FC (ID,9,K) ♦ 

. 0.7*TIM* ACEMFC  (ID, 4, K) ) * A NNTGO (I ) *E83NO(ID. 1) 

C 

DO  20  J=1 ,« 

GO  TO  (21, 22,23,24) ,J 

21  KD=7 

GO  TO  25 

22  KD=8 

GO  TO  25 

23  KD=5 
GC  TO  25 

24  KC=6 

2 5 EMISS  (I  ,15,  K)  = EMISS  (I  , 15,  K)  *T  GO  ( 3,  J,  I)  * ANNTGO  (I)  * ACEM  FC  (ID  , XD,  K) 
. *ENGNO  (II),  1) 

20  CONTINUE 

ACCUMULATE  TOTAL  ANNUAL  EMISSIONS  FROM  AIRCRAFT  OPERATIONS 
DO  30  K=  1 , N PLTS 

30  ACEM  (I , K) =ACEM  (I ,K) *EMISS  (I,15,K) 

10  CONTINUE 
RETURN 
END 
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SUBROUTINE  VEFCTR 


Purpose: 

A subdriver  to  set  up  automobile  and  truck  emission  factors 
and  to  call  TREFCI  with  the  appropriate  arguments. 

Input: 

None 

I Output : 

Automobile  and  truck  emission  factor  arrays  for  both  military 
and  civilian  vehicles  set  up  for  use  by  the  source  emission 
routines. 


Subroutine 
~ Called: 

TREFCT,  TFENTR  (an  entry  in  TREFCT) 
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SUBROUTINE  VEFCTR 
C 

C THIS  BCUT1HE  CALLS  TREFCT  AND  SETS  OP  THE  AUTO  AND 
C TRUCK  hCT  RUNNING  AND  COLD  START  EHISSION  FACTORS 

C 

INTEGER  CLDSTR 

CCHBCN  /AUTCS/  X EH ITT  (2, 6 , 6) , Y CLD ST ( 6 , 6)  , SO AK , BR TH , I AR E A , 

. IHDV.IAAT,  HEAR 

DIHENSICN  EX  EH (6,3)  ,CSCO  (6) ,CSHC (6)  ,CRA NK  (6) , EVAP  (6 , 3) 

C 

DC  1 0=1,6 
DC  1 K=  1 , 6 
YCLDST  (J , K) =0.0 
DC  1 1=1,2 
1 XEHI11  (I,J,K) =0.0 

FIND  HCT  RUNNING  EMISSION  EACTORS 

H = 2 

C IDST  fi  = 0 

C A l ! TREECT  (CLDSTR , EX EH ,CSCO,CSHC, EVAP.CRANK , I AREA , IHD7,I AAT , 
. 1YEAF) 

5 DC  1C  J = 1 , 6 
DC  11  Ml, 3 

XEHITT  (B, J, K) =EXEH (J, K) 

IF  (K.EQ.2)  XEBITT (H, J,2) =EXEH  (J,2) VCRANK  (J) 

IF  (J.GT. 2. AND. K. EQ.2)  X EHITT  ( H , J , 2)  = XE HI TT  (H  , J , 2 ) ♦ E V AP  (J  , 2) 

11  CCNTINUE 

XEHITT  (B, J, 4) =0.58 
XEHITT  <H,J,5)=0.20 
IF  (J.LT.6)  GO  TO  10 
XEHITT  (H,6, 4) =1 .2 
XEHITT  (H, 6,5) =2.4 
10  CCNTINUE 

IE  (E. EC. 1)  GO  TO  15 

FIND  CC1D  START  EHISSICN  FACTORS 

H=  1 

C IDST  R = 1 

CALL  TFENTR  (CLDSTR , EXEM  ,CSCO , CSHC, E V A P , CRANK , I AR E A , I HDV , I AAT, 
. I YE  A F) 

GO  TC  5 
C 

15  SCAK=EVAP  (1,3) 

BRTH=EVAP(1,1) 

DC  20  J=  1 , 6 
YCLDST  (J,  1) =CSCO  (J) 

20  YCLDST  (0,2) =CSHC (J) 

RETURN 

END 
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SUBROUTINE  VEHIC 


Purpose : 

1.  To  input  basic  vehicle  data. 

2.  lo  calculate  speed  corrections  and  annual  missions 
from  vehicles. 


Input : 

Basic  vehicle  input  data. 

Output : 

Print  all  input  data. 

Subroutines 

Called: 

None 
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SUBROUTINE  VE  HI  C (GM , 1 0 , A V H,  EM  FC  , C SEN  , 1 1 , 1 2 , SO  A K) 

THIS  ROUTINE  READS  THE  AIRBASE  VEHICLE  DATA  AND 
COMPUTES  ANNUAL  EMISSIONS 

COMMON  /POINTP/  M , N SR CES , NM AX , NMA XE , LSPCE S,  NTOT 
COMMON  /TOTS/  TOTEM  (2 0 ,6)  , TOT  EVP ( 10) 

COMMON  /DEFALT/  NPLTS 

DIMENSION  AVH  (8 , 150) , EMFC  (2 ,6 , 6)  , CS  EM  (6 , 6)  , VM  (6)  , SPDC(6)  ,NCDST(6) 
. GM(I1,I2) 

PRINT  1 

I  FORMAT  (1H-, 61X, 13HVEHICLE  INP  UT/  1 HO , 20X  , 5HS  PEED  , 6 X , 

. 45HTHOUSANDS  OF  MILES  PEP  VEHICLE  CLASS  PER  YEAR.5X, 

. 38HCOLD  STARTS  PER  VEHICLE  CLASS  PER  YEAR,3X,  8HANN.  HOT/ 

. 1H  . 3X,2HIDf5X,6HOPTION,4X,5H (MPH) , 7 X , 3H ( 1 ) , 5X , 3H (2)  , 5X , 3H ( 3) , 5X 
. 3H(4)  ,5X,3H  (5) , SX, 3H  (6) , 6X, 3H (1)  ,4X,3H  (2) , 4X, 3H (3)  ,4X,3H<4)  ,4X, 

. 3H  (5)  ,4X,3H  (6)  ,5X, SH SOAKS) 

DO  10  J=4, NPLTS 
) SPDC  (J) =1 .0 

DO  70  N=LSRCES,NSRCES 
DO  20  J=1 ,3 
) S PDC  (J)  = 1 . 0 

READ  21, SID, IOPT, SPEED,  (VM(J)  , J=1,6| 

1 FORMAT  (F4 .0,14 ,9F8. 2) 

PRINT  31, SID,IOPT, SPEED, (VM(J) ,J=1,6) 

1 FORMAT  (1H  ,F7.0,I6,F12.2,3X,6F8.2) 

DC  30  J=1,NMAX 

IF  (SID.EQ.GM (1,0)  ) GO  TO  40 
) CONTINUE 
RETURN 

) A VH  (1  , N)  =SI  D 
AVH  (2  , N) = J 

IF  (SPEED. NE. 18.6)  SP DC ( 1)  =1 2 . 5* ( SPEED** ( - 0 . 84 5) ) 

IF  (SPEED. NE. 19.6)  SP DC ( 2)  =7 . 0 * (S PEED** (-0.  64 9) ) 

IF  (SPEED. NE. 19 .6)  SP DC (3 ) = 1 . 0 ♦ (S PEED  - 15 . 6)  *0 . 0 1 262 
K=IOFT 

IF  (IOPT. NE . 3)  GO  TO  50 
READ  41, SID, (NCDST(J) ,J=1,6) 

1 FORMAT  (F4. 0,614) 

PRINT  42,  (NCDST  (J)  , J = 1,6) 

2 FORMAT  (1H*,T7 8,617) 

IF  (SID.  NE.  A VH  ( 1,  N)  ) GO  TO  9000 
READ  4 1 , SID , NH  SOAK 
IF  (SIC.NE. AVH(1,N) ) GO  TO  9000 
PRINT  43, NH SOAK 

3 FORMAT ( 1 H ♦ , T122,  17) 

K = 1 

D CONTINUE 

IF  (ICPT. EC* 3)  GO  TO  51 
DO  150  IKL= 1,6 

0 NCDST  (IKL)=0 
NHSOAK=0 

PRINT  42,  (NCDST (J) ,J=1 ,6) 

PRINT  43,  NHSOAK 

1 CONTINUE 

DC  70  1=1, NPLTS 
AVH  (2*1, N) =0. 0 
A=0  . 


VEHIC000 
VEH1C001 
VEHIC002 
VEHIC003 
VEHIC004 
VEHIC005 
VEHIC006 
VEHIC007 
, VEHIC008 
VFHIC009 
VEH ICO  1 0 
VEHIC01  1 
VEH ICO  1 2 
VEHICO 1 3 
VEHIC014 
, VEH IC01  5 
VEHIC016 
VEHICO 1 7 
VEHIC01 8 
VEH ICO  1 9 
VEHIC020 
VEHIC02 1 
VEHIC022 
VEHIC023 
VEHIC024 
VEHIC025 
VEHIC026 
VEHIC027 
VEHIC028 
VEHIC029 
VEHIC030 
VEHIC03 1 
VEHIC032 
V EH  ICO  3 3 
VEHIC034 
VFHIC035 
VEHICO  36 
VE  H ICO  37 
VEH ICO  38 
VEHICO 3 9 
VEHIC040 
VEH IC  04  1 
VFHIC042 
VEHIC043 
VEHIC944 
VEHIC045 
VEHIC046 
VEH IC 04  7 
VEHIC048 
VEHIC049 
VEHIC050 
VEHIC051 
VEHIC052 
VEHIC053 
VEHIC054 
VEHIC055 
VEHIC056 
VEHIC057 
VEHIC058 
VEHIC059 
VEHIC060 
VEHIC06 1 


DC  60  J=  1 , 6 

A = SPDC  (I) *Vfl  (J) *EBFC ( K,  J, I)  ♦ A 

IF  (IOPT. EQ. 3. AN D. J. N F. 1)  A=A *C SEB ( J , 1) • NCDST  ( J) 

IF  (IOPT.EQ.3 . AND. J. EQ. 1)  A=A*CSEM(J,I) * NCDST (J) ♦30AK*NHS0AK 
60  CONTINUE 

AVH  (2* I, N ) = AVH  (2*1 , N)  +A*1000. 

TOTEB (10*  B, I) = TOTEM  (I  0*M,  I) ♦ AV  H (1*2, N) 

70  CONTINUE 
BETUEN 
C 

9000  PBINT  9001,  AVH(1,N),SID 

9001  FOBBAT  (20H0PEHICLE  SOURCE  ID  =,F6.0,19H,  CONTINUATION  ID  =,F6.3> 
STOP 

BETUBN 

END 


VEHIC062 

VEHIC063 

VEHIC06U 

VEHICObS 

VEHIC066 

VEHIC067 
VEHIC068 
VEHIC069 
VEHIC070 
VFHIC07  1 
VEHIC072 
VFHIC073 
VEHIC074 
VEHIC07S 
VFHIC076 
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INITIAL  DISTRIBUTION 


Hq  USAF/TREVP  3 
Hq  TAC/DEEV  2 
C INCUSAFE/ Surgeon  1 
USAFA/DEV  1 
AF IT/DEM  1 
OEHL/CC  1 
OEHL/OL-AA  5 
ADTC/CSV  1 
DDC/TCA  12 
EA/USA  Environ  Hygn  Agency  1 
USA  CERL  1 
WESTDIV/Code  09BE  1 
Tech  Transfer  Staff/EPA  1 
Off  of  R5D/EPA  1 
NARF/Code  64270  2 
Naval  Postgrad  School/Code  41A  2 
Argonne  Nat  Lab/EESD  5 
USEPA/Robert  Snelling  2 
FAA/AEQ  1 
Dr  Delaney  1 
Det  1 Hq  ADTC/WE  2 
Det  1 Hq  ADTC/EC  1 
Det  1 Hq  ADTC/ECA  7 
AFCEC/DEE  3 
AFATL/DLODL  1 
AFATL/DLODR  1 
Det  1 Hq  ADTC/PRI  2 
AUL  (AUL-LSE-70-239)  1 
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